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ABSTSACT 


This  thesis  documents  the  design  and  inqpl^nentation  o£  a 
simulation  of  the  Ship-To-Shore  movement  phase  of  an  aaq^hibious 
assault  in  a  modem,  object-oriented,  process-based  simulation 
language  called  MODSIM  II  by  CACI  Corporation  of  Jolla,  CA.  The 
main  intent  of  the  simulation  is  to  build  a  model  that  will  allow 
the  Requirements,  Plans  and  Programs  Breuach  (RP&P) ,  Headquarters, 
United  States  Marine  Corps  (HQMC)  to  quantitatively  coo^re 
proposed  replacements  for  the  assault  aircraft  and  an^hibieuis 
currently  used  in  the  conduct  of  the  ship- to- shore  phase  of  the 
anphibious  assault.  Candidates  frcmn  the  Sfedi\un  Lift  Requirement 
{MLR)  program  are  con^red  to  identify  that  mix  of  aircraft  which 
provides  the  most  .'apid  build-up  of  c<mA>at  power  ashore. 
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A.  BACXGSOmiD 

According  to  doctrine,  the  United  States  Marine  Corps 
{USMC}  conducts  an  aa^ibious  assault  in  five  phases: 

•  Planning 

•  Embarkation 

•  Rehearsal 

s  Movement  to  the  Objective  Area 

•  Assault  (Ship -to 'Shore  Movement) . 

The  vehicles  currently  used  to  conduct  the  ship- to- shore 
movement  phase  of  the  as^hibious  assault  eure  rapidly  becoming 
obsolete.  There  are  two  reasons  for  this.  First,  in  the  case 
of  the  aviation  vehicles,  the  primary  medium  lift  assets  (CB- 
46  and  CH-53A/0  helicopters)  are  well  past  their  originally 
projected  service  life.  Service  Life  Extension  (SLBP)  and 
Special  Depot  Level  Maintenance  (SDUf)  programs  someidiat 
extended  each  aircraft  type's  service  life,  but  a  tronendous 
maintenamce  effort  is  required  on  a  daily  basis  to  keep  these 
aircraft  flying. 

Second,  in  the  case  of  the  surface  vehicles,  the  recent 
change  in  anqphibious  doctrine  to  the  Over-The-Horizon  (OTH) 
[Ref.  1]  concept  envisions  launching  anqphibious  assault 
vehicles  from  distances  that  were  never  imagined  when  the 
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the  cuirrent  class  of  assault  aaphibians  ytas  designed  and 
procured .  The  slow  speeds  at  idiich  these  aiephibians  swim 
ashore  render  than  tactically  obsolete  in  view  of  the 
increased  esqposure  times  that  result  from  the  OTH  ccmcept. 

In  view  of  this  growing  obsolescence  of  the  ship- to- shore 
vehicles,  replacmnents  must  be  procured  which  are  able  to 
accos^lish  the  ship- to- shore  movement  as  envisioned  by  the 
current  CTH  concepts.  In  an  effort  to  meet  these  OTH 
requirements,  two  programs  are  currently  underway  to  determine 
the  replacanent  vehicles. 

Tha  Hediiua  Lift  Replacement  (MLR)  program  has  been  tasked 
with  finding  a  replacement  aircraft  for  the  aging  CR-46  emd 
CR-S3A/0  aircraft.  Among  the  alternatives  that  are  being 
studied  arc  the  MV- 22,  CH-60,  an  improved  model  of  the  CH-46 
and  the  8-92.  The  aircraft  lift  capadaility,  fuel  endurauace  and 
cruise  speed  are  among  the  prime  considerations  in  evaluating 
the  alternatives  available.  The  identification  and  procurement 
of  the  MLR  aircraft  is  the  highest  priority  it«n  in  the  Marine 
Corps  today  [Ref.  2:p.  73] . 

The  Advanced  Assault  Anphibiam  Vehicle  (AAAV)  progratm 
seeks  to  find  a  suitable  replacement  for  the  current  LVTP-7 
family  of  assault  amphibians.  The  speed  at  idiich  the  vehicle 
transits  to  shore  is  the  major  difference  among  the  models 
currently  under  consideration. 

The  USMC  budget  for  the  next  several  years  will  dedicate 
a  growing  share  of  funds  to  developing  auid  procuring  these 
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r^lacec^Qt  vehicles.  In  view  of  this  ian^nse  ijivestment  it  is 
ia^rative  that  the  vehicles  chosen  perform  the  OTH  mission  in 
the  nK>st  efficient  and  effective  manner  possible. 

A  realistic  simulation  of  the  ship- to- shore  mov^oent  would 
allow  budget  planners  to  evaluate  the  performemce  of  the 
different  vehicles  ccm^ting  for  a  share  of  the  constantly 
shrinking  defense  budget.  Such  a  simulation  could  be  used  to 
perform  other  evaluations  as  well.  For  exau^le,  a  proposed 
landing  plan  could  be  run  in  order  to  identify  potential  choke 
points.  The  same  simulation  could  be  used  to  identify  desired 
characteristics  of  future  vehicles,  such  as  fuel  loads,  cruise 
speeds,  and  cargo  capacities. 

This  thesis  documents  the  construction  and  use  of  an 
object-oriented  ship-to-shorc  movement  simulation  in  an  effort 
to  identify  the  superior  of  aircraft  for  the  MbR  program. 

B.  THS  USBBS 

This  model  is  an  outgrowth  of  six  weeks  of  research  at  the 
Requirements,  Pleuis,  emd  Progrsuns  (RP&P)  Branch,  Headquarters, 
United  States  Marine  Corps  (HC^) .  RP&P  is  responsible  for 
developing  the  Program  Objective  Memorandum  (PCM)  which  is  the 
USMC  input  to  the  DoD  budget  process. 

In  addition  to  identifying  the  preferred  MLR  aircraft, 
this  model  will  assist  RP&P  in  the  evaluation  of  proposed 
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changes  in  the  equipment  and  doctrine  currently  enqployed  in 
the  ship-to-shore  movement  phase  of  an  amphibious  assault. 
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II.  TRS  AMPBIBIO0S  ASSADLT 

The  goal  of  the  anqphlbious  assault  is  the  rapid  btiild-up 
of  combat  power  ashore.  This  model  provides  a  means  to 
quantitatively  con^are  the  baild-up  of  combat  power  ashore 
achieved  by  differing  mixes  of  ships,  assault  craft  and 
aircraft.  Assault  craft  cuid  the  aircraft  that  perform  the 
ship- to- shore  movement  are  identical  objects  in  the  eyes  of 
this  model . 

This  thesis  will  examine  the  aircraft  currently  under 
consideration  by  the  MLR  program.  It  should  be  noted  that 
these  same  procedures  could  be  applied  to  the  vehicles  under 
consideration  by  the  AAAV  program. 

A.  SHIP-TO-SBOSE  MOVEKBHT 

The  ship- to- shore  movement  constitutes  the  fifth  phase  of 
an  an^hiblous  assault.  The  proper  execution  of  the  first  four 
phases  has  little  Inpact  on  the  ship- to- shore  phase.  As  a 
result,  the  conduct  of  this  simulation  disregards  the  first 
four  phases. 

There  are  several  key  factors  that  affect  the  rate  at 
which  combat  power  is  built-up  ashore  during  the  ship- to- shore 
movement.  Ignoring  the  n\imbers  of  anphiblous  ships,  assault 
craft  and  aircraft  availcdsle  to  conduct  the  ship- to- shore 
movement,  the  following  capcUsilltles  must  be  modeled. 
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1.  lluab«r  of  Landing  Spots  Available 

All  of  the  as^hibious  ships  in  use  are  capable  of 
conducting  air  operations.  The  nuinber  of  landing  spots 
available  for  use  on  each  ship  will  dictate  the  number  euid 
type  of  aircraft  that  may  be  en5)loyed.  Figure  l  shows  the 
landing  spot  configuration  for  the  LHA  class  of  anphibious 
ship. 


Figure  1:  Configuration  of  landing  spots  for  the  LHA  class 
of  amphibious  ship. 


On  the  other  hand,  the  types  of  aircraft  enployed,  due 
to  their  size,  could  limit  the  niirber  of  landing  spots 
available.  It  is  apparent  that  the  number  of  landing  spots 
available  adsoard  the  amphibious  ship  has  a  significauit  impact 
on  the  rate  at  which  combat  power  is  built-up  ashore. 

The  model  must  account  for  the  proper  use  of  these 
landing  spots.  Aboard  an  amphibious  ship,  different  aircraft 
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types  are  restricted  to  the  use  of  specific  landing  spots.  For 
example,  on  an  LHA  the  CK-53  can  not  land  on  spot  one.  The 
model  must  allot  aircraft  a  spot  that  can  be  utilized  by  that 
aircraft.  Chapter  III  contains  a  more  detailed  description  of 
the  allocation  and  use  of  these  landing  spots. 

The  amount  of  time  that  a  particular  aircraft  type 
spends  in  a  holding  pattern  along  with  lauiding  spot 
utilization  rates  will  indicate  the  need  for  different 
aircraft  mixes  or  ship  designs. 

2.  Aircraft  Capabilities  and  Limitations 

The  model  will  be  used  to  compare  the  rate  of  build-up 
using  different  aircraft.  In  order  to  perform  this  con^arison, 
the  key  differences  in  the  aircraft  must  be  modeled.  These 
differences  include,  but  are  not  limited  to: 

•  Airspeed 

•  Cargo  capacity 

•  Deck  Spot  restrictions 

•  Fuel  usage  and  capacity  (the  "range"  of  the  aircraft) . 

3.  Ship  Movement 

It  will  be  assumed  that  after  the  commencement  of  the 
aophibious  assault,  the  amphibious  ships  will  continue 
movement  towards  the  beach  until  they  reach  their  preset 
holding  points.  At  these  points  the  ships  will  maintain 
holding  patterns  for  the  duration  of  the  operation.  The 
initial  starting  point,  the  speed  at  which  a  ship  presses  for 


its  holding  point  and  the  holding  point  location  will  be 
entered  by  the  user.  In  this  way  the  distance  from  ship  to 
shore  may  be  varied  in  order  to  test  aircraft  capabilities 
under  different  scenarios. 

B .  DESIGN  DOOnfBNT 

Chapter  III  serves  as  a  design  document,  describing  in 
detail  the  an^hibious  assault  and  the  actions  of  the  model  as 
it  simulates  the  ship -t onshore  movement.  Chapter  III  Is  not 
mecuit  as  a  detailed  user's  guide,  but  rather  as  an  overview  of 
model  execution.  Appendix  A  contains  a  conplete  listing  of  the 
Cutter  model  source  code.  J^pendix  B  lists  the  minimum 
hardware  requirements  for  using  the  model. 
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ZIX.  TBS  liODBXi 

The  Cutter  model  is  an  object-oriented  simulation 
[Ref.  3]  developed  to  analyze  the  ship- to- shore 
movement  phase  of  the  as^hibious  assault .  In  the  (hitter  model 
key  players  within  the  ship- to- shore  movement  evolution  are 
created  as  objects.  These  (Ejects  possess  the  attributes  euid 
actions  required  to  model  the  ship- to -shore  piiase  of  the 
aoqphibious  assault.  As  an  exai^le,  a  C3i-46  would  be  modeled  as 
an  aircraft  object,  possessing  attributes  of  airspeed  and 
cargo  capacity,  among  others.  The  objects  and  their  attributes 
may  then  be  altered  in  order  to  explore  the  effect  of  these 
changes  on  the  ship- to- shore  movement. 

In  this  thesis,  attributes  of  aircraft  objects  are  altered 
to  reflect  those  possessed  by  aircraft  under  consideration  by 
the  MLR  program.  In  this  way  the  most  effective  MLR  aircraft 
may  be  identified.  The  primary  objects  of  the  Cutter  model, 
along  with  their  key  attributes  suid  actions  are  described  in 
the  following  sections. 

A.  AMPBZBZOUS  SHZPS 

The  ships  which  are  used  to  triuisport  the  landing  force  to 
the  Anqphibious  Operations  Area  (AOA)  are  referred  to  as 
anqphlbious  shipping.  Bxaiiq>les  of  asphlbious  ships  are  the 
Leuidlng  Ship,  Tank  (LST) ,  Landing  Ship,  Dock  (LSD)  and  the 
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Assault  Landing  Ship,  Helicopter  (LHA) .  An^hibious  shipping 
constitutes  the  ship  portion  of  the  ship- to- shore  movement.  A 
group  of  amphibious  ships  steaming  towards  the  AOA  is  referred 
to  as  an  Amphibious  Ready  Group  (ARC) . 

As  an  object  within  the  Ckitter  model ,  the  aa^hibious  ship 
is  known  as  an  MbBCbj  (Aaphibious  Ready  Group  Object) .  The 
primary  role  of  the  anphibious  ship  in  the  ship -to -shore 
movement  is  to  sail  from  an  initial  starting  location  to  a 
selected  holding  area.  During  the  ship- to- shore  OKSvement  the 
anphibious  ship  tremsfers  cargo  to  the  embarked  aircraft  for 
movement  to  shore. 

The  ntunber  of  landing  spots  on  an  anphibious  ship  has  a 
dominant  effect  on  its  capeibility  to  move  personnel  and 
equipment  frcmi  the  ship  to  the  shore.  Each  amphibious  ship  has 
deck  space  for  one  (an  LST)  to  as  many  as  ten  (an  LHA)  landing 
spots.  The  actual  number  of  landing  spots  available  for  use 
aboard  a  ship  will  vary  depending  on  the  number  and  type  of 
aircraft  embarked.  If  a  large  number  of  aircraft  are  embarked, 
Icuiding  spots  are  required  for  the  storage  of  those  aircraft 
not  currently  eoployed.  As  n^ntioned  in  the  previous  chapter, 
larger  aircraft  may  be  restricted  to  conducting  operations  on 
certain  spots  due  to  a  lack  of  clearance  from  ship  structures 
or  other  safety  considerations. 


10 


B.  TBB  AIRBOSS 

The  Airhoss  is  responsible  for  allocating  landing  spots  to 
those  aircraft  preparing  for  their  initial  launch  and  those 
requesting  permission  to  land.  Aircraft  that  request 
permission  to  Icutd  when  no  landing  spots  are  available  are 
sent  to  a  holding  queue  known  as  "starboard  delta”.  The 
Airboss  allocates  open  landing  spots  using  the  following 
priorities : 

•  Aircraft  awaiting  launch 

•  Aircraft  holding  in  starboard  delta. 

The  aircraft  holding  in  starboard  delta  are  prioritized 
based  on  the  amount  of  fuel  remaining  aboard  the  aircraft. 

Each  of  the  -  as^hiblous  ships  has  its  own  Airboss  and 
starboard  delta  queue.  In  addition  to  controlling  flow  in  to 
and  out  of  his  starboard  delta  queue,  the  Airboss  ensures  that 
aircraft  only  operate  from  those  landing  spots  that  have  no 
size  or  safety  restrictions  for  that  type  of  aircraft. 

Within  the  Cutter  model,  the  Airboss  is  created  as  a 
SpotManCtoJ  (Spot  Manager  Object) . 

C.  SERIALS 

A  serial  is  a  set  of  passengers  and/or  cargo  scheduled  for 
movement  ashore  eUsoard  a  single  aircraft.  Each  of  the  serials 
is  assigned  a  source  (anqphlbious  ship) ,  a  destination  (Landing 
Zone) ,  a  priority,  and  a  mode  of  transportation.  The  priority 
of  the  serial  determines  the  order  in  which  the  serials  are 
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transported  ashore.  The  lower  the  priority  o£  the  serial,  the 
sooner  it  is  scheduled  to  be  sent  ashore. 

The  mode  of  tremsportation,  either  as  internal  cargo  or 
cargo  to  be  carried  externally,  determines  the  airspeed  of  the 
aircraft  which  transports  the  serial  ashore.  Depending  on  the 
cargo  to  be  moved  externally,  the  airspeed  of  the  aircraft 
could  be  reduced  by  as  much  as  60%  of  that  which  the  aircraft 
would  normally  fly. 

The  weight  of  the  serial  will  drive  the  decision  as  to 
which  type  of  helicopter  transports  it  to  shore.  In  practice, 
passengers  and  lightweight  cargo  are  ustially  broken  into 
serials  sized  to  fit  onboard  the  smallest  transport  aircraft 
embarked.  Lairger  transport  aircraft  combine  two  serials  in 
order  to  escploit  their  payload  advantage  over  the  smaller 
transports.  Some  serials,  due  to  their  weight  or  size,  require 
larger  transports  for  movement  ashore. 

In  the  Cutter  model,  a  serial  to  be  moved  ashore  is 
created  as  a  SerlalCtoj. 

D.  BBLICOPTSR  DXSBCTION  CSHTBR 

The  Helicopter  Direction  Center  (HDC)  maintains  a 
prioritized  list  of  all  serials  to  be  moved  ashore.  This 
serial  list  is  used  to  direct  the  flow  of  aircraft  between  the 
ao^hlbious  ships  and  the  landing  zones. 

As  an  aircraft  departs  the  lemding  zone,  it  checks  in  with 
HDC  to  determine  the  location  of  the  next  serial  to  be  moved. 


12 


In  the  case  of  larger  transport  aircraft,  HDC  combines  two 
serials  whenever  possible  to  fully  utilize  these  larger 
aircraft. 

There  is  only  one  HDC  within  the  ARC.  As  an  Object  in  the 
Cutter  model,  the  Helicopter  Direction  Center  is  known  as  an 
BDCObj. 

B.  iiuronvs  zoMBs 

The  Lamding  Zone  (LZ> ,  modeled  as  an  USBeacbObj , 
represents  the  shore  portion  of  the  ship- to- shore  movement. 
The  LZ  is  the  destination  for  the  serials  loaded  aboard  the 
transport  aircraft.  The  only  attributes  that  am  LZ  possess  are 
location  auid  a  preset  nijtG^r  of  landing  spots.  The  lamding 
spots  in  the  LZ  are  identical  in  nature  to  those  adsoard  the 
aiqphibious  ships. 

Each  of  the  lamding  zones  contain  a  Forward  Air  Controller 
(FAC)  who  performs  the  same  function  for  the  LZ  that  the 
Airboss  performs  for  the  amphibious  ship.  The  FAC,  also 
modeled  as  a  SpotMsaxC2}j ,  operates  in  the  same  manner  as  the 
Airboss  with  one  exception.  Since  all  aircraft  start  the 
simulation  from  the  anphibious  ships,  the  FAC  does  not  have  to 
contend  with  aircraft  preparing  for  their  initial  launch. 
Therefore,  the  FAC  allocates  open  landing  spots  solely  to 
aircraft  within  his  starboard  delta  cpieue. 
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F.  AZRC8AFT 


There  are  two  types  of  aircraft  utilized  in  the  as^hibious 
assault ;  transport  aircraft  and  attack  aircraft .  The  transport 
aircraft  are  used  to  move  the  serials  from  the  as^hibious 
ships  to  the  lauiding  zones.  Attack  aircraft  provide  covering 
fire  for  the  transports  as  they  perform  their  assigned  tasks. 
Each  of  these  aircraft  eind  their  roles  in  the  axnphibious 
assault  will  be  described  in  separate  sections. 

1.  Transport  Aircraf  t 

Transport  aircraft  are  the  vehicles  which  move  the 
serials  from  the  eui^hibious  ships  to  the  lauiding  zones  ^ 
Created  as  a  TransObj  within  the  Cutter  model ,  the  trauisport 
aircraft  are  the  focus  of  this  thesis.  There  are  matny  actions 
that  transport  aircraft  perform  in  the  execution  of  their 
mission.  These  actions  auxd  scmie  sinplifying  asf^un^tions  aure 
described  in  the  following  sections, 
a.  Initial  Launch 

The  transport  aircraft  are  embarked  aboard 
amphibious  ships  for  movement  to  the  AQA.  At  a  pre- determined 
laiinch  time,  the  aircraft  obtains  a  landing  spot  from  the 
Alrboss  in  order  to  ccmmence  flight  operations.  Once  the 
landing  spot  is  obtained,  the  aircraft  is  positioned  on  the 
spot,  loaded  and  launched. 

The  eunount  of  time  that  an  aircraft  requires  to 
load  is  determined  by  the  serial  that  is  assigned  to  the 
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aircraft.  Serials  that  consist  entirely  of  passengers  or  that 
are  carried  externally  usually  require  the  least  amount  of 
time  to  load.  Serials  that  consist  entirely  of  internally 
carried  cargo  require  the  greatest  amount  of  time  to  load.  The 
Cutter  model  looks  at  the  contents  of  the  serial  assigned  to 
the  aircraft  to  determine  the  appropriate  loading  time. 
b.  Transit  to  Shore 

An  aircraft  must  meet  certain  criteria  prior  to 
departing  the  an^hibious  ship.  In  the  Cattxr  model,  the 
aircraft  ensures  that  there  is  enough  fuel  aboard  for  a  round 
trip  frczn  the  ship  to  the  shore,  plus  a  pre- determined 
reserve.  If  there  is  not  enough  fuel  sdxsard  the  aircraft,  the 
aircraft  is  refueled  aboard  the  an^hibious  ship  from  which  it 
is  departing.  In  the  Cutter  model  there  are  no  refueling 
facilities  ashore;  aircraft  are  required  to  refuel  aboard  one 
of  the  amphibious  ships.  It  is  assumed  that  the  refueling 
system  aboard  every  anphibious  ship  is  functional. 

In  addition  to  checking  for  sufficient  fuel,  the 
aircraft  checks  that  the  pilots  have  sufficient  crew  day  for 
the  roimd  trip.  While  crew  day  is  an  administrative  safety 
limitation  placed  on  the  aircrew,  it  could  have  a  very 
negative  effect  on  the  ship-tO'Shore  movement.  If  am  aircrew 
does  not  have  sufficient  crew  day  to  ccmnplete  the  round  trip, 
the  aircraft  returns  to  its  pother  ship  amd  commences  the 
shut-down  procedures. 
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The  speed  at  which  the  aircraft  transits  to  the 
shore  is  deterxdjied  by  several  factors.  The  loaded  cruise 
speed  of  the  aircraft  is  the  maximum  speed  at  which  the  loaded 
aircraft  would  normally  transit.  If  the  aircraft  is  assigned 
a  serial  to  be  carried  externally,  the  transit  speed  is 
reduced  considerably. 

c.  Arrival  at  the  JUS 

l^n  arrival  at  the  destination  LZ,  the  aircraft 
requests  a  landing  spot  from  the  FAC.  If  there  are  no  landing 
spots  available,  the  FAC  will  place  the  aircraft  in  his 
starboard  delta  queue.  The  aircraft  will  hold  in  this  queue 
until  cleared  for  landing  by  the  FAC. 

The  time  it  takes  to  tinload  the  aircraft  is 
determined  in  the  same  maimer  as  the  loading  time.  Those 
serials  coo^sed  entirely  of  passengers  and  those  that  are 
carried  externally  are  the  fastest  to  unload,  with  serials 
consisting  of  internal  cargo  being  the  slowest. 

At  the  coDqpletion  of  the  unloading  evolution,  the 
aircraft  departs  the  LZ  and  tremsits  to  the  aoqihibious  ships. 

d.  Tranait  to  Aapbihiava  Sbippix>g 

As  an  aircraft  departs  the  LZ,  it  will  check  in 
with  HDC  in  order  to  determine  the  pick-up  location  of  the 
next  serial.  The  aircraft  then  transits  to  the  pick-up 
location  at  its  normal  enqpty  cruise  speed. 
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As  the  aircraft  approaches  the  pick-up  ship,  it 
calls  that  ships  Airhoss.  Ihe  Alrboss  will  either  clear  the 
aircraft  to  land  if  a  landing  spot  is  available,  or  direct  the 
aircraft  to  enter  the  starboard  delta  gueue.  Vfpon  landing  on 
the  an^hiblow3  ship,  the  load,  transit  to  shore,  unload, 
transit  to  an^hibious  shipping  cycle  is  repeated  until  the 
aircraft  is  directed  by  HDC  to  shut-down. 

e.  Sbut-dom 

Aircraft  will  repeat  the  cycle  described  above 
imtil  directed  by  HDC  to  shut-down.  In  the  Ckitter  model  there 
are  two  reasons  that  HDC  would  direct  an  aircraft  to  shut¬ 
down.  The  first  mrould  be  if  the  aircrew  should  exceed  crew  day 
limitations.  Secondly,  an  aircraft  would  be  directed  to  shut¬ 
down  if  there  were  no  additional  serials  requiring  movement  to 
shore . 

When  directed  to  shut-down,  the  aircraft  proceeds 
to  the  ship  which  transported  it  to  the  AOA.  t^n  aurrival  at 
the  ship,  the  aircraft  requests  a  l^mding  spot  from  the 
Airboss  and  proceeds  as  directed.  When  all  of  the  aircraft 
have  returned  to  their  mother  ship  and  shut-down,  the 
simulation  is  terminated. 

f.  Fkiei  OSagfe 

One  of  the  attributes  that  determines  the 
effectiveness  of  an  aircraft  in  the  ship- to- shore  arena  is  the 
range  of  that  aircraft.  The  range  of  the  aircraft  is  a 


combination  of  the  amount  of  fuel  an  aircraft  carries,  and  the 
rate  at  which  the  aircraft  consumes  that  fuel  (the  fuel -flow)  . 
The  model  uses  three  fuel -flow  rates;  one  when  the  aircraft  is 
airborne  loaded  with  cargo,  one  when  the  aircraft  is  airborne 
with  no  cargo,  and  one  for  ground  operations.  There  are  three 
periods  during  which  an  aircraft  consumes  fuel; 

•  In  transit 

•  Holding  in  a  starboard  delta  queue 

•  While  loading  and  unloading  cargo. 

The  Cutter  model  confutes  the  amount  of  fuel 
consumed  whenever  an  aircraft  reaches  an  LZ  or  an  an^hibious 
ship.  For  example,  an  aircraft  may  load,  transit  to  shore, 
hold  in  starboard  delta  awaiting  an  LZ  leuiding  spot  and 
finally  land.  At  this  time.  Cutter  will  con5)ute  the  amount  of 
fuel  consumed  based  on  the  loading  time,  transit  time  and  the 
amount  of  time  spent  holding.  The  fuel  consumed  is  then 
subtracted  from  the  eunount  of  fuel  currently  aboard  the 
aircraft. 

2.  Attack  Aircraft 

Attack  aircraft  are  similar  to  treuisport  aircraft, 
both  possessing  the  same  attributes  and  actions.  In  the  Cutter 
model,  an  attack  aircraft  is  modeled  as  an  AtteckObj  which 
inherits  [Ref.  3]  the  attributes  and  actions  from  the 
transport  aircraft.  There  is  one  primary  difference  between  an 
attack  aircraft  and  a  transport  aircraft. 


18 


Unlike  the  tremsports,  attack  aircraft  are  not 
required  to  interact  with  the  landing  zones .  An  attack 
aircraft  is  assumed  to  fly  for  a  given  period  of  time  and  then 
return  to  the  an^hibious  ship.  The  attack  aircraft  con^^etes 
for  ship  landing  spots,  refuels,  and  shuts  down  in  the  same 
nmnner  as  the  transport  aircraft. 

6.  MODEL  EXECDTIQIM 

There  are  several  phases  to  the  execution  of  the  ship-to- 
shore  movement  simulation.  A  brief  description  of  the  methods 
that  the  Cutter  model  uses  to  con^tlete  these  phases  is 
presented  in  the  following  sections. 

1 .  Input 

The  infoimation  required  to  create  the  desired 
scenario  is  input  through  the  use  of  six  data  files.  Each  of 
the  data  files  contains  a  description  of  each  piece  of 
required  data,  as  well  as  an  example  of  data  used  for  this 
thesis.  The  FileForm.aod  file  consolidateis  this  information 
for  all  of  the  input  files.  J^pendix  C  contains  a  description 
and  exeui^les  of  the  required  input  files. 

2 .  Scenario  Initialisation 

The  Cutter  model  contains  several  procedures  which 
create  the  desired  scenario.  At  the  con^letidn  of  this  phase 
all  of  the  an^hibious  ships,  their  embarked  aircraft,  landing 
zones  and  serials  have  been  created. 
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3 .  Ri^licatlon 

The  simulation  is  replicated  the  requested  number  of 
times,  resetting  all  of  the  starting  values  at  the  end  of  each 
replication.  At  the  end  of  the  final  replication,  all  of  the 
objects  are  disposed  of,  required  statistics  are  conqputed,  and 
the  final  output  is  created. 

4 .  Output 

The  model  creates  several  output  files  for  each 
scenario.  The  user  inputs  the  desired  name,  limited  to  five 
characters,  of  these  output  files  using  the  OPplan.dat  data 
file  (described  in  Appendix  C)  .  Appendix  D  contains  a 
description  and  examples  of  the  output  files. 
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4»V  «  AMJMtiZ  X4»Vp4Uw  yjtWWKti/vJmg 

A.  BACSGROOND 

The  Cutter  model  uses  recuzsively  generated  rai»icni  nurndber 
streams  to  control  the  passage  of  time  throughout  its 
operation.  As  a  result,  the  output  frcmi  the  model  is  a  random 
process,  with  the  parameters  of  the  parent  distribution 
tinknown.  In  order  to  cos^re  the  results  of  two  different 
aircraft  mixes  run  under  the  same  scenario,  a  n»aps  of 
cos^}aring  the  unknown  parent  distributions  must  be  found  which 
identifies  the  superior  distribution.  The  random  variable 
which  measures  the  build-up  of  coonbat  power  ashore  will  be 
examined  in  order  to  Identify  the  superior  mix  of  aircraft. 

This  build-up  of  cooibat  power  ashore  may  be  thought  of  as 
a  pure  birth  process,  as  there  are  no  departures  from  the 
system  [Ref.  4:p.  251].  In  the  ship- to-shore 
movement,  the  rate  at  which  the  mix  of  aircraft  (the 
population)  delivers  the  serials  ashore  (births)  may  be 
approximated.  The  population  of  serials  ashore  at  any  time  t, 
as  a  function  of  the  combat  power  possessed  by  each  serial, 
may  be  written  as 

X{t)  i  t€  (0,D,  (1) 

where  X(t)  is  the  amount  of  combat  power  ashore  at  time  t  (t 
ranging  from  time  0  to  T,  the  time  that  the  last  serial 
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arrived  ashore)  .  The  amount  of  ccmibat  power  ashore  is  iMeuPured 
as  the  percentage  of  total  combat  power  to  moved  ashore. 
For  purposes  of  this  thesis,  these  functions  will  be  referred 
to  as  C(Hnbat  Power  Ashore  functions. 

In  order  to  con^re  the  distributions  from  two  different 
random  processes,  it  is  typical  to  conpare  the  measures  of 
location  cuid  spread  from  the  two  parent  distributions. 
Calculating  interval  and  point  estimators  of  a  distribution's 
location  emd  spread,  using  multiple  runs  of  the  simulation, 
requires  several  simplifying-  assumptions 
[Ref.  5:p.  2781  : 

e  independence  between  replications 
•  normality  of  the  output  distribution 
s  constant  variance. 

It  is  felt  that  while  these  assumptions  may  serve  to 
sin^lify  the  con^arison  of  two  distributions  which  occur 
naturally,  they  may  not  be  appropriate  when  dealing  with  the 
output  from  a  con^uter  simulation. 

Additionally,  these  methods  are  usually  applied  to  "end” 
measures  such  as  the  coK^letion  time  of  a  task  or  the  amount 
of  time  spent  in  a  queue.  In  the  case  qf  the  build-up  of 
combat  power  ashore,  the  rate  of  build-up  is  more  in^ortant 
than  the  actual  coo^letion  time.  The  methods  commonly  enployed 
to  analyze  simulation  output  are  unable  to  capture  a  measure 
of  this  rate. 
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B.  TBE  COMBAT  POMBB  ASBOBB  FOHCTZOir 

Output  frcm  the  Cutter  model  may  be  used  to  obtain 
estimates  of  the  Ccmtbat  Power  Ashore  (CPA)  function  for  each 
aircraft  mix.  The  CPA  function  for  a  specific  aircraft  defines 
the  percentage  of  combat  power  ashore  at  every  time  t,  using 
that  aircraft,  in  this  thesis  it  is  desired  to  con^re  the  CPA 
functions  for  each  aircraft  in  order  to  identify  the  preferred 
replacement  aircraft  for  the  MLR  program. 

The  CPA  function  presents  two  vital  pieces  of  infozmation 
concerning  combat  power  ashore.  First,  the  CPA  function  shows 
the  amount  of  combat  power  ashore  (X(t))  at  every  time  t. 
Second,  the  amount  of  time  that  the  ccxnbat  po%>er  has  been 
ashore  is  shown  as  the  difference  between  the  time  that  a 
serial  arrives  and  the  time  t  of  interest.  Clearly,  the 
greater  the  time  a  serial  is  ashore  the  greater  its  worth  to 
the  Commander  of  the  Lauiding  Force  (CLF) . 

Since  the  goal  of  the  ship- to- shore  movenent  is  the  rapid 
build-up  of  combat  power  ashore,  the  ideal  CPA  function  is 
easily  visualized.  This  ideal  CPA  function  delivers  all  combat 
power  ashore  at  time  0.  In  Figure  2a,  it  is  clear  that  under 
the  ideal  CPA  function,  all  combat  power  is  available  to  the 
CLF  at  every  time  t.  It  is  also  clear  that  this  CPA  function 
will  never  be  observed  in  practice. 

Figure  2b  presents  a  more  probable  CPA  function.  In  this 
CPA  function  all  serials  are  considered  to  possess  equal 
combat  power.  The  first  serial  arrives  ashore  at  time  tl,  the 
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second  serial  arrives  at  time  t2  and  so  forth  for  all  serials. 
Each  of  the  serials  is  represented  by  a  rectcungle,  with  the 
height  (h)  equal  to  the  combat  power  of  the  serial  amd  the 
length  (I)  equal  to  the  amount  of  time  the  serial  is  ashore. 


Figure  2  (a)  The  ideal  CPA  fimction.  (b)  A  sis^llstic  CPA 
function. 


For  any  time  t,  the  first  serial  is  availaUble  for  a  length 
of  time  equal  to  C  -  tl,  the  second  serial  is  available  for  a 

e 
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time  o£  t  -  t2,  and  so  on  for  each  serial.  The  area  of  each 
rectangle  (condoat  power  *  tine  ashore)  represents  the  worth  of 
that  serial  to  the  CLF  at  any  time  t.  The  stim  of  the  area 
within  all  rectangles  (and  thus  the  area  under  the  CPA  curve) 
presents  a  measure  of  the  combat  power  available  to  the  CLF, 
at  any  time  t. 

In  order  to  choose  one  CPA  function  over  another,  the  area 
under  each  function  must  be  compared.  Furthermore,  the  method 
chosen  must  accoimt  for  the  area  \mder  the  function  for  every 
time  t. 

C.  CGHPhAim  CPA  FOHCTIONS 

In  this  thesis,  CPA  functions  produced  by  different 
aircraft  are  ccmpared  in  a  pairwise  manner  to  identify  the 
preferred  aircraft  for  the  MLR  program.  The  goal  of  each 
pairwise  con5>ari8on  is  to  identify  that  CPA  function  which 
provides  the  CLF  with  the  most  rapid  build-up  of  combat  power 
ashore. 

There  are  three  cases  that  occur  when  comparing  CPA 
ftmctions.  Each  of  these,  along  with  exanqples,  is  discussed  in 
the  following  sections. 

1.  Case  1 

Suppose  that  the  amount  of  combat  power  ashore  at  time 
t,  using  aircraft  X,  is  defined  by  the  CPA  ftinction  X(t)  . 
Further  suppose  that  the  eunount  ashore  using  aircraft  Y  is 
defined  by  the  CPA  function  Y{t).  If  the  value  of  X(t)  is 
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greater  than  the  value  of  Y(t)  for  every  t,  then  aircraft  X  is 
obviously  preferred  over  aircraft  Y.  This  znay  be  written  as 
X{t)  *  y(t}  rv  t  e  tO,T})  .  (2) 

If  the  conditions  of  Equation  (2)  hold,  then  the  area 
under  X(t)  will  exceed  that  under  Y{t}  for  all  tiise  t. 
Therefore,  the  CPA  function  X(t}  provides  a  greater  anu3unt  of 
combat  power  to  the  CLP  than  CPA  function  Y{t)  at  every  time 
t. 

Figure  3  contains  a  cooparison  of  the  CPA  functions 
produced  by  two  different  aircraft.  In  this  case  X{t}  is 
greater  then  y(t)  for  every  time  t.  Under  the  CPA  function 
X{t)  the  CLF  has  more  conbat  power  available,  at  every  time  C, 
then  would  be  available  under  the  CPA  function  Y(t} .  Thider  tt^ 
first  case,  the  CLP  clearly  prefers  that  CPA  function  which 
has  more  conbat  power  ashore  at  every  time  t. 

2.  Case  2 

As  shown  in  Figure  4,  when  two  CPA  functions  are 
cooqpared,  it  is  likely  that  the  conditions  in  Equation  (2) 
will  not  hold  for  all  time  t.  In  this  -case,  a  different 
criteria  is  used  in  order  to  choose  one  CPA  function  over 
cuiother. 

For  any  time  t,  the  longer  a  given  serial  is  ashore, 
the  greater  utility  (conbat  power  *  time  ashore)  that  serial 
has  to  the  CLP.  As  mentioned  earlier,  at  any  time  t,  the  area 
under  the  CPA  f\inctlon  presents  a  measure  of  the  combat  power 
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Flgur*  3  Case  1.  The  value  of  CPA  function  Z(t)  is  greater 
th^  that  of  CPA  function  Y(t)  for  every  t.  The  aircraft 
«^ich  produced  the  CPA  function  X(t}  is  preferred. 


available  to  the  CLP.  If  the  area  under  X(t}  is  greater  than 
the  area  under  Y(t)  for  all  t,  then  X(t)  is  preferred  over 
Y(t}.  In  this  case 

t  t 

f  xiOdt  i  f  (Vte[0,n).  (3) 

0  0 
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S^xatioQ  (I)  is^lies  that  CFA  fimctioa  3({t)  offers  a 
greater  utility  (in  tezias  of  coisfbat  power)  to  the  then 
the  CCA  function  Y(t}  for  every  t. 

In  the  ship*  to*  shore  environiBent,  it  is  al%fays 
preferable  to  have  more  comibat  power  ashore  now,  than  to  have 
a  prcsoise  of  s^re  latter.  Figure  4  shows  a  case  where  Squat icm 
(2)  fails  to  hold,  but  where  the  conditions  of  Equation  (3) 
are  met.  In  this  case  CPA  function  X{t)  is  preferred  over  CPA 
function  Y(t}.  Note,  at  some  tiii»  t,  the  totaa  amount  of 
coo^t  power  ashore  for  Y{t)  could  ^^ceed  that  of  X(t}  (as 
sho%m  at  tisie  70)  with  X{t)  being  the  preferred  CPA  functlcm. 

3.  Case  3 

During  the  conduct  of  scmoe  pairwise  ccxnparisons,  it 
may  not  be  possible  to  pick  one  CPA  function  over  another. 
Figure  5  shows  an  example  where  two  CPA  functions  cross  each 
other  several  times.  In  this  case,  neither  Equation  (2)  nor 
Equation  (3)  holds  at  every  time  t.  Therefore,  it  is  not 
possible  to  pick  one  CPA  fxmction  over  the  other.  In  this 
case,  it  will  be  assumed  that  the  two  CPA  fxinctions  are  equal, 
and  that  neither  one  is  preferred  over  the  other. 

4.  Doainanoe 

When  two  CPA  functions  are  ccm^red,  the  dominant 
function  is  that  which  provides  the  most  rapid  build-up  of 
combat  power  ashore.  Throughout  the  rest  of  this  thesis, 
during  a  pairwise  coa^rlson,  the  preferred  CPA  function  will 
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Vignr*  4  Case  2.  'Hie  area  under  the  CPA  function  X(t)ls 
greater  than  the  area  under  the  CPA  function  Y(t}  at  every 
C.  X(t)  is  the  preferred  CPA  function  X(t) . 

be  referred  to  as  the  dominant  of  the  two  CPA  functions.  In 
order  for  CPA  function  X(t)  to  dominate  the  function  Y(t) ,  one 
of  the  following  conditions  must  be  met: 
e  x(t)  *  Y(t)  rv  t  e  [0,T]) 

•  So*  X(t)  «  So*  Y(t)  0/  t  t 
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rigur«  5  Neither  function,  X(t)  nor  Y(t),  dominates  the 
other. 

If  neither  CPA  function  dominates  the  other,  it  will 
be  assumed  that  either  CPA  function  is  acceptable  to  the  CLF. 

5.  Assuavtions 

In  order  for  the  criteria  outlined  above  to  be  aiqplied 
in  the  conqparlson  of  two  CPA  functions,  t%ro  assuiiqptions  must 
be  accepted. 
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a.  Dimiaishiosr  Maxgixtal  Retaxxm 


The  total  utility  of  a  serial  to  the  ChP  is  a 
product  of  the  combat  power  aud  the  tin^  ashore  of  the  serial. 
As  a  result,  two  serials  may  contain  the  same  anusunt  of  combat 
power,  yet  be  of  different  ^railue  to  the  CLP  due  to  their 
respective  time  ashore. 

For  exaa^le,  consider  two  howitzers,  A  and  B. 
Initially,  both  howitzers  possess  the  same  combat  power. 
However,  if  A  arrives  ashore  30  minutes  prior  to  B,  then  A  has 
a  greater  utility  to  the  CLP  then  B,  due  to  the  longer  time 
spent  ashore  by  howitzer  A.  Therefore,  a  serials  worth  to  the 
CLP  diminishes  the  longer  it  takes  to  deliver  that  serial 
ashore. 

b.  Cutter  Output 

Readizing  that  Cutter  output  is  itself  a  random 
process,  it  is  assumed  that  the  output  from  ee.ch  replication 
of  the  simulation  is  representative  of  the  CPA  function  for 
the  particular  airczraft  used.  Under  this  asstimption,  the 
estimate  of  the  CPA  function  resulting  frcun  the  first 
replication  of  Aircraft  X  may  be  compared  to  the  estimate  of 
the  CPA  function  resulting  from  the  first  replication  of 
Aircraft  Y,  and  so  on  for  multiple  replications  of  the 
simulation  for  each  aircraft. 
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D.  ANALYSIS  PROGRAM 


The  Aaalysis  program  is  used  to  compare  CPA  functions  from 
each  aircraft  in  the  different  Cuttei:  scenarios.  In  order  to 
estimate  the  CPA  functions,  the  Cutter  model  con^letes  one 
hundred  replications  for  each  aircraft.  In  order  to  con^jare 
two  aircraft,  the  one  hundred  CPA  function  estimates  for  each 
aircraft  are  compared  using  the  Analysis  program.  The 
following  sections  describe  the  required  input,  and  general 
wordings  of  the  Analysis  program. 

1 .  Input 

The  Analysis  program  takes  as  input  the  Cutter  output 
file  <filename>LZ.out  (described  in  Appendix  D)  from  each  of 
the  two  aircraft  to  be  compared.  The  Analysis, dat  file  is  used 
-o  input  the  number  of  comparisons  to  perform,  the  names  of 
the  two  data  files  to  con^are,  and  the  desired  name  for  the 
Analysis  output  file. 

2 .  Data  Preparation 

The  contents  of  each  of  the  <fil&aame>LZ.out  files  is 
manipulated  to  create  two  data  arrays  fox  each  aircraft.  These 
arrays  contain  the  data  required  for  the  Analysis  program  to 
perform  the  required  calculations.  The  following  sections  list 
these  arrays,  along  with  a  short  description  of  their  use. 

a .  Timex  Array 

The  Timex  Array  contains  the  integers  from  1  to  the 
time  T  that  the  last  serial  arrives  ashore  within  the  current 


32 


simulation  run.  This  array  provides  the  t  axis  values  for  the 
CPA  function. 

i).  Tmlue  Array 

The  Yvalue  Array  contains  the  total  ccanbat  power 
ashore  at  the  corresponding  time  in  the  Timex  array.  This 
array  provides  the  Y  eocis  values  for  the  CPA  function. 

3.  Case  i  Coaparison 

The  coaparison  procedure  for  the  first  case  takes  the 
Yvalue  array  for  each  data  set,  conparing  the  values  for  each 
time  t.  If  the  elements  of  the  Yvalae  array  for  Aircraft  X  are 
greatei'  than  or  equal  to  the  elements  of  the  rvalue  array  for 
Aircraft  Y,  at  every  time  t  (Bq.  2) ,  then  the  CPA  function  for 
Aircraft  X  dominates  the  CPA  function  for  Aircraft  Y.  In  this 
example  the  use  of  Aircraft  X  is  preferred  over  the  use  of 
Aircraft  Y. 

4.  Case  2  Coaparison 

If  the  conditions  in  Equation  (2)  do  not  hold,  a  Case 
2  coaparison  is  performed  in  an  effort  to  identify  the 
dominant  CPA  function.  The  comparison  procedure  for  the  second 
case  conputes  the  area  under  each  CPA  function  for  every  time 
t.  If  the  area  under  X{t)  is  larger  them  the  area  xmder  Y(t) 
at  every  time  t,  then  X(t)  dominates  Y(t) . 

If  neither  coaparison  is  ed}le  tc  choose  a  dominant  CPA 
function,  then  Case  3  applies,  and  neither  CPA  function 
dominates  the  other. 
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S.  CONTZliaBNCT  TBST 

The  results  o£  the  Analysis  program  are  used  to  perform  a 
contiagency  test.  The  null  hypothesis,  that  the  CPA  function 
for  Aircraft  X  is  the  same  as  the  CPA  function  for  Aircraft  Y 
(in  a  given  scenario) ,  is  tested  against  the  alternative 
hypothesis  that  the  two  CPA  functions  are  different.  This 
hypothesis  test  may  be  written  as 

Ho  :  X(t)  “  y(t)  V8  H,  :X(t)  #  Y(t)  .  (4) 

The  results  of  the  CPA  function  con^arisons  for  any  two 
aircraft  are  arranged  as  shown  in  Table  I. 


Table  I.--  CONTINGENCY  TABLE  FORMAT 


Acft 

Acft  X 

Either 

Acft  y 

Dominant 

(cell  1) 

(cell  2). 

(cell  3) 

In  Tsd)le  I,  the  value  entered  into  cell  1  refers  to  the 
number  of  times  that  Aircraft  X  dominates  Aircraft  Y.  The 
value  entered  into  cell  3  represents  the  nxnhber  of  times  that 
Aircraft  Y  dominates  Aircraft  X.  The  value  in  cell  2 
represents  the  number  of  times  that  neither  aircraft  dominates 
the  other. 

The  contingency  test  computes  the  following  value  for  each 
of  the  cells  in  Table  I: 


(5) 


(observed  value  -  aagpaefced  value)^ 
expected  value 


As  mentioned  earlier,  the  output  frcmi  the  simulation  is  a 
random  variable.  As  such,  an  estimate  ot  the  expected  values 
for  each  cell  of  Table  X  must  be  found.  Suppose  that  a  is  the 
observed  value  for  cell  l,  that  b  is  the  observed  value  for 
cell  2  and  that  c  is  the  observed  value  for  cell  3.  It  cam  be 


shown  that  the  Maximum  Likelihood  Estimator  (MZiS)  for  the 
es^ected  values,  given  that  Hp  (Bq.  4)  is  true,  are  as 
follows : 


•  S.  m  (a+c) /2  for  cells  l  emd  3 
e  S  «  b  for  cell  2. 


The  value  of  Equation  (5)  for  each  cell  in  Table  I  are 
calculated  and  siunmed.  This  final  sum  is  then  ccmpared  to  the 
Chi-Square  distribution  with  one  degree  of  freedom  (J^i)  to 
test  the  null  hypothesis  Hp. 
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V.  simhissim 

A,  mami  TOacFicarioM  ' 

The  OBtt«r  liKxiel  haa  been  verified  to  'work  idiiie  ruzming 
a  ziuaber  of  sidipie  teat  scenarios.  The  oatj^put  fron  these  ^eat 
scenarios  has  been  ejcamined  and  is  believed  to  be  correct.  The 
model  has  not  been  validated,  aus  this  would  re{|uire  comparing^ 
its  results  to  the  results  obtained  from  actual  Ship- to- shore 
exercises.  Since  it  has  not  been  validated,  these  results 
should  only  be  viewed  relative  to  each  other,  and  not  as 
absolute  numbers.  Future  users  are  encouraged  to  review  the 
input  required  and  conduct  trials  to  confirm  the  proper  input 
parcuneters . 

B,  TBST  SCBKB&I08 

A  brief  description  of  each  scenario  and  the  different 
aircraft  capabilities  and  limitations  appear  in  the  following 
sections.  J^pendix  C  contains  the  input  data  for  each  scenario 
and  aircraft  used, 
i .  Scenarios 

Each  of  the  three  scenarios  consisted  of  3  ships  (an 
LKA,  LPD,  euxd  LST)  and  2  landing  zones.  The  landing  zone 
locations  were  fixed  for  each  scenario,  while  the  ship-to- 
shore  distance  varied  from  scenario  to  scenario.  In  the  first 
scenario  the  ships  were  5  miles  from  shore,  in  the  second 
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acenarlo  the  ships  were  25  miles  tzaai  shore,  while  the  thixrd 
scenario  had  the  ships  50  miles  frm  shore*  lihile  the  Qitcer 
model  has  the  ability  to  model  ship  movement  this  feature  was 
not  used  in  the  test  scenarios. 

There  are  a  total  of  419  passengers  and  97,000  pounds 
of  cargo  to  be  transported  ashore  under  each  scenario.  The 
serial  lists  for  each  of  the  aircraft  mixes  were  arranged  in 
order  to  fully  ea^loit  the  cargo  capacity  of  the  aircraft.  For 
exan^le,  a  serial  for  the  MV- 22  contains  a  msocimum  of  twenty 
passengers  while  a  serial  for  the  CH-60  contains  a  maximum  of 
ten.  As  a  result,  the  aircraft  mix  containing  MV-22  aircraft 
had  a  total  of  39  serials  to  move  ashore  while  the  CH>60  mix 
required  that  56  serials  be  transported  ashore. 

2 .  Aircraft 

There  are  seven  different  aircraft  used  in  the  test 
scenarios.  Six  of  these  aircraft  are  under  consideration  by 
the  MLR  program.  The  seventh  aircraft,  the  CH'53B,  is  included 
for  reasons  to  be  discussed  in  a  later  section.  The  input 
parameters  for  each  of  the  aircraft  were  obtained  from  the 
Naval  Air  Systems  Comnand.  The  sections  below  will  provide  a 
brief  description  of  the  aircraft  involved,  with  emphasis  on 
the  more  important  capabilities  and  limitations  of  each. 

a.  CH-46 

This  is  the  current  medium  lift  aircraft  and  is 
used  as  a  baseline  for  aircraft  comparisons. 
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Jb.  CH-ffO 


The  CH-60  has  the  smallest  payload,  equivalent  to 
ten  passengers.  This  aircsraft  does  possess  an  airspeed  and 
rcuige  advantage  over  the  CH>46  aircraft. 

C.  3-92 

At  this  time,  the  data  for  the  S‘92  is  proprietaury 
and  is  therefore  omitted  from  the  body  of  this  thesis.  This 
aircraft  does  possess  greater  cajrgo  capacity,  range  and 
airspeed  then  the  CH-46. 

d.  CH-S3E 

This  is  a  much  lairger  aircraft  then  the  CH-46,  8-92 
and  CH-60.  The  CH-53B  will  carry  more  then  twice  as  much  as 
the  CH-46  with  an  airspeed  of  150  kts  and  a  xmich  greater 
range.  However,  due  to  its  size,  the  CH-53E  operates  from  six 
deck  spots  ab'jard  the  LHA,  whereas  the  CH-46,  S-92  and  CH-60 
aircraft  have  eight  deck  spots  frcm  which  to  operate. 

e.  MV-22 

This  is  a  tilt- rotor  aircraft,  cOsle  to  operate  in 
either  the  helicopter  or  fixed-wing  mode.  The  fixed-wing 
cruise  speed  (approximately  250  kts)  cuid  the  helicopter  cruise 
speed  (180  kts)  give  this  aircraft  a  tremendous  advantage  over 
the  other  five  Ccuidldates.  The  MV-22  payload  is  somewhat 
larger  then  the  CH-46,  but  considerably  less  then  the  CH-53E. 
This  is  a  large  aircraft,  and  therefore  has  the  same  LHA  deck 
spot  limitation  as  the  CH-53E. 
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f,  CB-47D 

The  internal  cargo  capacity  of  this  aircraft  is 
identical  to  that  of  the  CB‘53S.  While  the  aix^peed  of  the  CH- 
47  is  caiii}ared>le  to  that  of  the  CH-53B,  the  range  is 
significantly  less.  Due  to  its  laxge  size,  the  CH<47  is 
limited  to  six  operating  spots  aboard  the  lliHA. 

g.  JBW-lOl 

This  aircraft  has  the  same  cargo  capacity  as  the 
MV- 22,  but  possesses  average  airspeed  and  range  ^en  centred 
to  the  other  aircraft. 

The  aircraft  listed  were  arranged  into  the  following 
mixes  and  nm  under  each  scenario: 

•  12  CH-46  and- 4  CH-53E  Wix  1) 

•  12  CH-60  and  4  CH-53B  (Mix  2} 
e  12  SH-101  and  4  CH-SSE  (Mix  3) 
e  12  HV-22  and  4  CH-53B  (Nix  4} 

•  12  CK-47D  (Mix  5) 

•  12  S-92  and  4  CH-53B  (Mix  6). 

Note  that  five  of  the  aircraft  mixes  Include  the  CH- 
53B  aircraft.  The  real  world  ship- to- shore  movogent  Includes 
several  serials  which  require  heavy  lift  assets  to  move 
ashore.  The  CH-47D  is  capable  of  lifting  all  loads  that 
require  external  transportation  to  shore,  therefore  the  CH-53B 
is  not  Included  in  the  fifth  mix. 
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C.  SCSKlkKXO  BSSHIiVS 


In  the  following  sections  the  results  frcaa  each  scenario 
are  discussed,  stressing  the  ability  of  the  asodel  to  evaluate 
the  interactions  of  the  various  input  parameters.  Note  that 
when^  for  exan^le,  reference  is  made  to  the  this 
refers  to  the  12  MV- 22/4  CH-53E  mix  of  aircraft,  and  not 
solely  to  the  MV- 22  aircraft. 

1.  Scenario  1 

AS  Shown  in  l^le  II,  the  CH-47D  clearly  dominated  all 
aircraft  in  the  first  scenario.  The  CH-47D  is  able  to  overcome 
the  landing  spot  restrictions  aboard  the  LHA  through  its 
superior  cargo  capacity. 

The  HV-22  and  the  SH-lOl  were  equally  effective,  a 
result  that  is  interesting.  Nhile  the  t%K>  aircraft  possess  the 
same  cargo  capacity,  there  are  two  major  differences  in  the 
capabilities  of  the  aircraft.  The  MV*22,  with  a  speed  of  180 
kts,  has  a  40  knot  advantage  over  the  EH- 101.'  On  the  other 
hand,  the  SH-iOl  has  the  use  of  eight  landing  spots  aboard  the 
LHA  while  the  MV- 22  is  restricted  to  six  spots. 

As  expected,  the  S- 92,  possessing  average  range  and 
cargo  capacities,  fell  in  the  middle  of  the  six  mixes.  This 


'  The  MV- 22  was  limited  to  180  kts  for  this  scenario.  The 
short  ship- to- shore  distemce  of  the  scenario  would  prevent  the 
aircraft  from  conqpleting  transition  to  the  fixed-wing  mode. 
The  180  kts  is  the  maximum  airspeed  for  the  aircraft  in  the 
helicopter  mode. 
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aircraft  Is  significantly  more  effective  than  the  baseline  CH> 
46  mix. 

The  CH*60  is  totally  inadequate .  The  restricted  cargo 
capacity  of  the  aircraft  allo%r8  it  to  be  dominated  by  all 
aircraft  mixes. 


Table  H.--  AIRCRAFT  COMPARISONS  FOR  SCE3IARI0  1 


Scenarlol 

1  vs  3 

SESBI 

1  vs  5 

Dominates 

Em 

WM 

n 

44 

BMHi 

ES 

ifsa 

n 

78 

m 

IS 

Does  Not 

soBBBaBBBma 

56 

22 

Scenariol 

sMsmasBCSiSSBi 

vwrwM 

2  vs  4 

2  vs  6 

X .  r-:  V  '  : ..  J 

r:.3 

Dominates 

BBa 

rags 

nrai 

Does  Not 

MBrBB 

50 

shiblsbb 

26 

SMff^WSMbSaaSHBlBfCMHi 

Scenariol 

3  vs  6 

glCTlpMi 

KIEEii 

Dominates 

0 

55 

25 

1 

■1 

El 

14 

1 

Does  Not 

45 

74 

85 

Note:  Mix  (1)  ...  CR-46  Mix  (4)  ...  MV-22 

Mix  (2)  ...  CH-60  Mix  (5)  ...  CH-47 

Mix  (3)  ...  BH-101  Mix  (6)  ...  S-92 


2 .  Scenario  2 

As  Shown  in  Table  III,  the  CH>47  dominance  over  the 
MV-22,  while  still  significant  (p-value  >  .0082),  is 
dramatically  reduced  in  Scenario  2.  The  MV-22  top  speed  of  250 
knots,  combiaed  with  the  ship-to-shore  distance  of  25  miles  is 
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able  to  offset  much  of  the  cargo  capacity  advantage  of  the  CH- 
47. 

At  25  miles,  the  EH- 101  is  no  longer  as  effective  eis 
the  MV' 22.  The  increased  airspeed  of  the  MV- 22  is  fully  able 
to  offset  the  two  additional  cqperating  spots  from  which  the 
EH- 101  is  able  to  operate. 

Once  again,  the  S-92  is  the  third  most  effective 
aircraft.  The  CH-60  is  still  dominated  by  the  C3Ir46,  in  spite 
of  the  range  and  airspeed  adveuitages  of  the  CB-60. 


Note:  Mix  (1)  ...  CH-46  Mix  (4)  ...  MV-22 

Mix  (2)  ...  CH-60  Mix  (5)  ...  CH-47 

Mix  (3)  ...  BH-101  Mix  (6)  ...  S-92 


3 .  Scenario  3 

In  the  third  and  final  scenario,  there  is  no 
difference  between  the  MV-22  and  the  CH-47  aircraft.  The  fifty 


42 


mile  shlp-tO'Sliore  distance  allows  the  MV^>22  airspeed 
advantage  to  fully  con^nsate  for  the  cargo  capacity  of  the 
CH-47. 

The  EH- 101  continues  to  dominate  the  other  three 
aircraft.  It  is  interesting  that  the  dominance  of  the  EH- 101 
over  the  CH-46  and  the  CH-60  decreased  between  Scenaurios  l  and 
2,  but  then  increased  between  Scenarios  2  and  3.  This  dip  can 
be  explained  by  examining  the  range  of  the  aircraft  involved. 

In  Scenario  1  the  CH-60  and  CH-46  require  refueling  in 
order  to  ccxtplete  the  evolution.  The  BH-101,  due  to  its  range 
advantage,  is  able  to  coo^lete  the  first  scenario  ifithout 
conducting  refueling  operations.  The  ship- to- shore  distance  in 
Scenario  2  is  such  that  the  EH- 101  requires  a  greater  increase 
in  the  number  of  refuelixig  operations  from  Scenauric  1  then  the 
increase  in  refueling  operations  for  the  CH>46  amd  CH-60 
aircraft.  Therefore,  the  build-up  of  combat  power  with  BH-lOl 
decreases  at  a  greater  amount  then  the  build-up  using  CH-46  or 
CH-60  aircraft. 

In  Scenario  3  the  opposite  occurred.  Due  to  the 
greater  range  of  the  EH- 101,  the  CH-60  and  CH-46  required  more 
additional  refueling  operations  from  Scenario  2  to  complete 
the  third  scenario  then  the  EH- 101  required.  These  aulditional 
refueling  operations  slow  down  the  rate  at  which  the  CH-60  and 
CH-46  build-up  combat  power  aishore. 

The  S-92  showed  the  same  dominance  pattern,  to  a 
lesser  degree,  between  scenarios  as  did  the  EH- 101.  The  3  92 
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is  still  the  dcaninate  aircraft  %dien  ccazpared  with  the  CH-46 
and  CH-60  aircraft. 

The  CH'60  is  almost  completely  dcmiinated  by  every 
aircraft  in  the  study.  This  urould  stress  the  importance  of  the 
aircraft  cargo  capacity.  It  takes  a  major  airspeed  and/or 
range  advantage  to  ccanpensate  for  a  very  limited  cargo 
capacity.  Table  IV  contains  the  coiqplete  resiUts  for  the  third 
scenario. 


Note:  Mix  (1)  ...  CH-46  Mix  (4)  ...  MV- 22 

B4ix  (2)  ...  CH-60  Mix  (5)  ...  CH-47 

Mix  (3)  ...  BH-101  Mix  (6)  ...  S-92 


4.  Sumaary  of  Test  Results 

The  results  fron  the  three  scenarios  confirm  the 
obvious.  The  aircraft  with  the  largest  payload  will  most 
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likely  be  the  most  effecti^re  in  terms  of  the  rapid  build-up  of 
cotribat  power  ashore. 

The  an£U.ysis  above  also  demonstrates  the  ability  of 
the  cutter  model  to  quamtify  the  capcd>ility  trade-offs  among 
different  aircraft.  While  one  aircraft  may  possess  a  speed 
advantage  and  another  a  larger  cargo  capacity,  both  aircraft 
may  be  eguaLLly  effective.  In  this  case,  the  MV-22,  with  the 
110  knot  airspeed  advantage  proved  as  effective  ^  the  CH-47, 
vfith  a  10  passenger  capacity  advantage,  given  a  certain  ship- 
to- shore  distance. 

Another  tiraule-off  cooqparison  exists  between  the  CB-46 
and  the  CH-60.  The  CH-60  hzis  a  significantly  longer  range  and 
a  slightly  greater  airspeed  then  the  CH-46.  The  CH-46,  on  the 
other  hand,  is  able  to  carry  five  more  paissengers  than  the  CH- 
60.  It  was  shown  that  this  trade-off  between  the  two  aircraft 
allowed  the  CH-46  to  dominate  the  CB-60  under  all  three 
scenarios . 

The  ability  to  quantify  these  capeibility  trade-offs 
proves  that  the  Cutter  model  is  a  valuable  tool  when  used  to 
analyze  the  ship-to-shore  movmnent. 
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APPBMDiz  A  arrrsA  model  source  code 


MAIM  module  Gutter; 

{ . 

MODULE  NAME:  Cutter  DATE  VOilTTEN:  18  Mar  92 

AUTHOR:  S.  E.  Shav»  MODIFIED: 

Capt  USMC 

DESCRIPTION  :  Ship-To-Shore  movement  analysis  model. 
Simulates  the  build  up  of  combat  power  ashore.  The  user  js 
able  to  change  the  scenario,  to  include  the  ship/L2  locations, 
as  well  as  the  niimber  and  type  of  aircraft  employed. 


FROM  Debug  IMPORT  TraceStream; 

FROM  DebugRun  IMPORT  SetUpD; 

FROM  SimMod  IMPORT  StartSimulation,  ResetSimTime,  SimTime; 
FROM  CATFMod  IMPORT  CATPObj ; 

FROM  Input  IMPORT  ReadEmAll; 

FROM  global  IMPORT  NewRandoms,  repetition,  showerrors; 

FROM  Statistics  IMPORT  StatisticsObj ,  lastdeliverytime; 

FROM  OutputDriver  IMPORT  OpenPiies,  CloseFiles, 
EndTimerecorder ; 

VAR 

CATF  :  CATFOb j ; 

Statistician  :  StatisticsObj; 
total runs  :  INTEGER; 

BEGIN 

OUTPUT( "Enter  Number  of  Runs  to  Cc  iplete"); 

INPUT  (totalruns) ; 

SetUpD  (TRUE) ; 
showerrors  :-  FALSE; 

ReadEmAll; 

NewRandoms ; 

OpenFiles ; 

NEW  (Statistician) ; 

ASK  Statistician  TO  StartStats; 

repetition  :»  l; 

WHILE  (  repetition  <-  totalruns) 

ASK  TraceStream  TO  WriteString  ("Starting  Cutter"); 
ASK  TraceStream  TC  WriteLn; 

NEW  (CATF) ; 


46 


StartSimulatlon; 

ASK  Statistician  TO  CollectRepStats  (CATF) ; 

ASK  TraceStream  TO  WriteString  ("Destroying  CAT?"); 
ASK  TraceStream  TO  WriteLn; 

ASK  CATF  TO  DestroyCATF; 

OUTPUT  ("Repetition  :»  ",  repetition, "  con^jleted" )  ; 
ASK  EndTimerecorder  TO 

WriteString (REALTOSTR (lastdeliverytime) ) ; 

ASK  EndTimerecorder  TO  WriteLn; 

ResetSimTime (0.0); 

ASK  Statistician  TO  ResetStats; 

INC  (repetition) ; 

END  WHILE; 

ASK  Statistician  TO  StopStats; 

CloseFiles; 

OUTPUT  ("Ending  Cutter"); 

END  {  MAIN  }  MODULE  {  Cutter  }. 


DBFIHITIOH  MODULE  ARGMoA} 

{ . - . 

MODULE  NAME:  ARGMod  DATE  WRITTEN:  18  Mar  92 

AUTHOR:  S.  E.  Shaw  LAST  MODIFIED: 

Capt  USMC 


DESCRIPTION  :  Defines  the  Amphibious  Ready  Group 
(ship)  objects. 

. } 

FROM  ResMod  IMPORT  ResourceObj ; 

FROM  GrpMod  IMPORT  QueueOb j ; 

FROM  global  IMPORT  LocationXY; 

FROM  SpotMan  IMPORT  SpotManOb j ; 

FROM  RGlobals  IMPORT  SHierRecT^e ; 

EXPORTTYPE 

ARGObj  -  OBJECT;  FORWARD; 


TYPE 


ARGObj  -  OBJECT 
nernie 
airboss 
location 
squadron 
type 

holdlocation 


( QueueOb j ) ; 
STRING; 
SpotManOb j ; 
LocationXY; 
QueueOb j ; 
STRING; 
LocationXYi 


steamspeed 

holdingspeed 

course 

steaming 


REAL; 

REAL; 

REAL; 

BOOLEAN; 


pun^rate  :  REAL; 


ASK  METHOD  ReadData  (IN  record  :  SHierRecType) ; 
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ASK  METHOD  Objinit; 

ASK  METHOD  CurrentPos  (OUT  xcoord  :  REAL; 

OUT  ycoord  :  REAL) ; 

ASK  METHOD  DestroyARG; 

TELL  METHOD  SetHoldingTime ; 

END  OBJECT  {  ARGObj  }; 

BSD  {  DEFINITION  }  MODULE  {  ARGMod  }. 


IMPLEMENTATION  MODULE  ARGMod; 

{ 

MODULE  NAME:  ARGMod  DATE  WRITTEN:  18  MAr  92 

AUTHOR:  S.  E.  Shaw  LAST  MODIFIED: 

Capt  USMC 

DESCRIPTION  :  Defines  the  As^hlblous  Ready  Group 
(ship)  objects. 


FRC^  global  IMPORT  LocationXY,  Distance,  DeBug; 
FROM  RGlobals  IMPORT  SHierRecType ; 

FROM  MathMod  IMPORT  SQRT,  pi,  ACOS,  COS,  SIN; 
FROM  SimMod  IMPORT  SimTime; 

FROM  Transport  IMPORT  TramsOb j  ; 

FROM  Debug  IMPORT  TraceStream; 

OBJECT  ARGObj ; 


ASK  METHOD  ReadData  (IN  record  :  SHierRecType) ; 

VAR 

placeholder  :  INTEGER; 

BEGIN 

name  :«  record. Tops t ring; 

type  :-  record. OwnedSt ring [1] ; 

locatlon.x  :>  STRTOREAL (record. OwnedSt ring [2] ) ; 

location./  STRTOREAL ( record. OwnedString [3] ) ; 

steaxnspeed  :- STRTOREAL  (record.  OwnedString  [4] ) ; 

holdlngspeed  : - 

STRTOREAL ( record . OwnedString [5] ) ; 
holdlocation.x  :- 

STRTOREAL ( record . OwnedString [ 6 ] ) ; 
holdlocation.y  :- 

STRTOREAL ( record . OwnedString [ 7 1 ) ; 
pun^rate  STRTOREAL (record. OwnedString [ 8] ) ; 
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ASK  alrboss  TO  PalntSpots  (type,  name, 

oarrYPBNAME(SBIiP) ,  placeholder); 
ASK  alrbose  TO  SetNamelname) ; 

END  METHOD  {  ReadData  }; 


ASK  METHOD  Objinit; 

BEGIN 

NEW  (alrboss) ; 

NEW  (squadron) ; 

TELL  SELF  TO  SetHoldlngTlme; 

END  METHOD  {  Objinit  }; 


TELL  METHOD  SetHoldingTlme ; 

VAR 

dist  :  REAL; 

ateamtlme  :  REAL; 

BEGIN 

diet  :«  Distamce  (location,  holdlocatlon) ; 
steamtlme  (dist  /  steamspeed)  *  €0.0; 

IF  (dist  >-  0.0) 
steaming  :•  TRUE; 

WAIT  DURATION  steantime; 

END  WAIT; 

END  IF; 


Steaming  :•  FALSE; 

END  METHOD  {  SetHoldingTlme  }; 


ASK  METHOD  CurrentPos  (OUT  xcoord  :  REAL; 
OUT  ycoord  :  REAL) ; 

VAR 


xO  coord 

REAL 

yO coord 

REAL 

xlcoord 

REAL 

ylcoord 

REAL 

Angle 

REAL 

hyp 

REAL 
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xvel,  yvel  :  REAL; 

BEGIN 

xOcoord  ;>  locatlon.x; 
yOcoord  location. y; 
xlcoord  holdlocation.XT 
ylcoord  holdlocatlon.y; 

IF  steaming 

hyp  SQRT  ( (xlcoord  -  xO coord )*  (xlcoord  -  xOcoord) 
+  (ylcoord  -  yOcoord) * (ylcoord  -  yOcoord) ) ; 
Angle  ACOS  ((ylcoord  -  yOcoord) /hyp) ; 

IF  ( (xlcoord  >«  xOcoord)  AND  (ylcoord  <«  yOcoord) ) 
Angle  :•>  Angle; 

xvel  :>  SIN  (Angle)  *ateamapeed; 
yvel  COS  (Angle)  *steainspeed; 

ELS IP  ( (xlcoord  >*  xOcoord)  AND  (ylcoord  >• 
yOcoord)) 

Angle  Angle; 

xvel  :>  SIN  (Angle)  *  steamsp^d; 
yvel  :«  COS  (Angle)  *  steamspeed; 

ELSIF  ( (xlcoord  <*  xOcoord)  AND  (ylcoord  >• 
yOcoord) ) 

Angle  (2.0*pi  -  Angle); 
xvel  :«  SIN  (Angle)  *  steamspeed; 
yvel  :«  COS  (Angle)  *  steamspeed; 

ELSE  { ( (xlcoord  <-  xOccoxd)  AND  (ylcoord  <- 
yOcoord) ) } 

Angle  :«  (2.0*pi  -  Angle); 
xvel  :•  SIN  (Angle)  *  steamspeed; 
yvel  COS  (Angle)  *  steamspeed; 

END  IF; 

xcooxd  (SimTimeO /60.0) *xvel  +  xOcoord; 

ycoord  (SimTimeO /6 0.0) *yvel  +  yOcocrd; 

ELSE 

xcoord  holdlocation.x; 
ycoord  :■  holdlocatlon.y; 

END  IP; 


END  METHOD  {  CurrentPos  }; 


ASK  MBTHOD  D^stroyARG; 

VAR 

acft  :  TranaObj; 

BEGIN 

ASK  airboss  TO  Oestrc^potMan; 

IP  ^ASK  squadron  nusibsrin  >  0} 
acft  :»  ASK  squadron  First  0  ; 

WHILE  (acft  <>  NILOBJ) ; 

ASK  squadron  TO  RonoveThisCacft) ; 
ASK  acft  TO  OestroyVehicIe; 
acft  : m  ASK  squadron  First ( } ; 

END  WHILE;  - 

ENP  IF; 

DISPOSE  (squadron) ; 

END  METHOD  {  DestroyArg  } ; 


END  OBJECT  {  ARGMod  }; 

BHD  {  mPLBCBHTATIGH  }  MOlKHiB  {  ASOHOd  }. 
DBFZHZnCBr  MQOOLB  Attack; 


MODULE  NAME:  AttackAcft  DATE  WRITISN:  .  7  Dipt  92 

AUTHOR:  S.  E.  Shaw  LAST  MODIFIED: 

Capt  USMC  MODIFIED  BY: 

DESCRIPTION  :  Contains  the  Attack  Aircraft  Object. 


PROM  RandMod  IMPORT  RandoftOb  j ; 

FROM  ARGMod  IMPORT  ARGOb  j  ; 

FR(M  LZBeach  IMPORT  LZBeachObj; 

PROM  SerialMod  IMPORT  SerialObj; 

PROM  HDCMod  IMPORT  RDC(»)  j  ; 

FRCM  global  IMPORT  LocationXY; 

FROM  RGlobals  IMPORT  SHierRecType ; 
FROM  Transport  IMPORT  TransObj; 

BXPORTIYPB 

AttackObj  -  OBJECT;  FORWARD; 


TYPE 


AttackObj  >  OBJECT  (TransObj } ; 
retumtime  :  RandomObj ; 
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OVERRIDE 

MBTEOD  Ctoj  lUit; 

Operate; 

TELL  MBIEOD  Load; ^ 

TELL  HBTgK^  getClearance  ; 
TBXtL  METHOD  TransitToBeach;  . 
TELL  METHOD  PlyToShip; 

TELL  METHOD  Spot; 


END  OBJB<;r  {  AttatckObj}; 

END  {  DSFUnnOV  }  MQDDLE  {  AttackRoft  }. 


TEWtioinniTAnoE  woBiaiM  xttmek) 

{ . - . 

MDDDLB  NAME t  ^  AttackAcft  DtATB-MRirTW;  -  SR. 

ADTHDR:  S.  E.  Shaw  liAST  MODIFIED: 

Capt  USMC  MWIFlBb  BY: 

DESCRIPTION  :  Contains  the  Attack  Aircretft  Object. 


FROM  SioMod  IMPORT  SinTine; 

FRC»(  RandMod  IMPORT  RandoaOb  j ; 

FROM  ARGMod  IMPORT  ARGOb  j  ; 

FROM  HDCMod  IMPORT  HDCObj .Brief IngRec; 

FROM  SerialNod  IMPORT  SerialObj; 

FRCRI  gldsal  IMPORT  LocationXY,  Distance,  ReturnTime, 
inoreserials ; 

FRC^  RGlobad.8  IMPORT  SHierRecType ; 

FR(^  SpotProcedures  IMPORT  GetShipSpot,  GetLZSpot, 

GiveBackShipSpot ,  GiveBackLZSpot,  Init  ialLaunch ; 

FROM  LoadProcedures  IMPORT  LoadCargo,  nnLoadC2u:30,  ReAxnAcft; 
FRCR4  Transport  IMPORT  TransObj; 

FR(M  Debug  IMPORT  TraceStream; 

OBJECT  AttackObj ; 


ASK  METHOD  Ob j Init; 

BEGIN 

NEW  (holdingtinestats) ; 

ADDMONITOR  (holding time,  holdingtimestats) ; 
NEW  (holdingshipstats) ; 

ADDMONITOR  (holdingship,  holdingshipstats) ; 
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NEW  (holdlngbeachstate) ; 

AIH3IIONITOR  (holdingbeach,  holdlngbeachstats) ; 
BHD  METHOD  {  Objinit  }; 


TELL  METHOD  Spot; 
VAR 

ship 

atartpoint 

endpoint 

gonogo 

newserlal 

available 

loadtime 

BEGIN 

destination 


STRING; 

LocationXY; 

Location3CY; 

REAL; 

SerialObj; 

BOOLEAN; 

REAL; 

Q^nKsther; 


WT^T  DORATKW  5.0 

iSiD  WATT;  {  Spread  time  wait  } 

airbometime  SimTimeO; 


TELL  SELF  TO  TransitToBeach; 
END  METHOD  {  Spot  ); 


TELL  METHOD  Load; 

VAR 

rearmtlme  :  REAL; 

BEGIN 

holding  SimTime ( )  -  holding; 
ReAmAcft  (SELF,  reamtime) ; 


WAIT  DURATION  reamtime 

END  WAIT;  {  load  serial  wait  } 

TELL  SELF  TO  TransitToBeach; 


END  METHOD  {  Load  }; 


TELL  METHOD  Operate; 

VAR 

available  :  BOOLEAN; 

BEGIN 

InitialLaunch  (SELF,  available) ; 
IF  (available) 

TELL  SELF  TO  Spot ; 

END  IF; 

END  METHOD  {  Operate  } ; 


TELL  METHOD.  Trans it ToBeach; 

VAR 

flight time  :  REAL; 

available  :  BOOLEAN; 

BEGIN 


WAIT  FOR  SELF  TO  GetClearance; 

END  WAIT; 

IF  (cleared) 

GiveBacIcShipSpot  (SELF)  ; 

flighttime  :=»  ASK  ReturnTime 

UniformReal  (60.0,  120.0); 

WAIT  DURATION  flighttime; 

END  WAIT;  {  sortie  time  to  shore  } 

TELL  SELF  TO  FlyToShip; 


ELSE 

TELL  SELF  TO  ShutDown; 


END  IF; 

END  METHOD  {  Trans it ToBeach  } ; 


TELL  METHOD  FlyToShip; 

VAR 

available  ;  BOOLEAN; 

BEGIN  . 
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holding  ; =  SimTime ( } ; 

GetShi^jopot  (SELF,  available)  ; 
IF  (available) 

TELL  SELF  TO  Load; 

END  IF; 

END  METHOD  {  FlyToShip  }; 


TELL  METHOD  Ge t Clearance; 

BEGIN 

cleared  :=  TRUE; 

INC  ( totalsorties) ; 

IF  ( (totalsorties  >  3) 

OR  ( (SimTime 0  -  airbornetime)  >crewday) ) 
cleared  :=  FALSE; 

END  IF; 

END  METHOD  {  GetClearance} ; 


END  OBJECT  {  AttackAcf tObj  }; 

END  {  IMPLEMENTATION  }  MODULE  {  AttaclcAcft  }. 


DEFINITION  MODULE  CATFMod; 

{ . 

MODULE  NAME:  CATFMod  DATE  WRITTEN:  18  Mar  92 

AUTHOR:  S.  E.  Shaw  LAST  MODIFIED; 

Capt  USMC 

DESCRIPTION  ;  Defines  the  Commander,  Amphibious  Task  Force 
object.  This  object  keeps  track  of  all  ships,  LZs,  and  HDCobjs 
that  are  created.  Primarily,  these  objects  are  tracked  for 
disposal  at  the  end  of  each  replication. 


FROM  GrpMod  IMPORT  QueueOb j ; 

FROM  ARGMod  IMPORT  ARGObj ; 

FROM  LZBeach  IMPORT  LZBeachObj ; 
FROM  SerialMod  IMPORT  SerialObj ; 
FROM  HDCMod  IMPORT  HDCOb j ; 
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EXPORTTYPE 

CATFObj  =  OBJECT;  FORWARD; 

TYPE 

CATFObj  =  OBJECT; 

shiplist  :  QueueObj ; 

Izbeachlist  :  QueueObj; 
hdclist  :  QueueObj; 

ASK  METHOD  Objinit; 

ASK  METHOD  AddShip  (IN  newship  ;  ARGOb j ; 

IN  HDC  :  HDCOb j ) ; 

ASK  METHOD  AddLZBeach  (IN  newlz  :  LZBeachOb j  )  ; 
ASK  METHOD  DestroyCATF; 


END  OBJECT  {  CATFObj  }; 

END  {  DEFINITION  }  MODULE  {  CATFMod  }. 


IMPLEMENTATION  MODULE  CATFMod; 


MODULE  NAME;  CATFMod  DATE  WRITTEN;  18  Mar  92 

AUTHOR;  S.  E.  Shaw  LAST  MODIFIED; 

Capt  USMC 

DESCRIPTION  ;  Defines  the  Commander,  Amphibious  Task  Force 
objfev-j.  This  object  keeps  track  of  all  ships,  LZs,  and  HDCobjs 
that  are  created.  Primarily,  these  objects  are  tracked  for 
disposal  at  the  end  of  each  replication. 

. } 

FROM  ARGMod  IMPORT  ARGObj ; 

FROM  LZBeach  IMPORT  LZBeachObj ; 

FROM  SerialMod  IMPORT  SerialObj ; 

FROM  Transport  IMPORT  TransObj ; 

FROM  HDCMod  IMPORT  HDCOb j ; 

FROM  global  IMPORT  DeBug; 

FROM  Procedures  IMPORT  FindSource,  FindDestination; 

FROM  CreateARG  IMPORT  Scenario; 

OBJECT  CATFObj; 

ASK  METHOD  Objinit; 
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VAR 


HDC  :  HDCObj; 


BEGIN 

NEW  (shiplist) ; 

NEW  (Izbeachlist) ; 

NEW  (hdclist) ; 

NEW (HDC) ; 

ASK  hdclist  TO  Add  (HDC) ; 
Scenario (SELF,  HDC); 

FindSource  (HDC,  SELF) ; 
FindDestination  (HDC,  SELF) ; 

END  METHOD  {  Objinit  } ; 


ASK  METHOD  AddShip  (IN  newship  :  ARGOb j ; 

IN  HDC  :  HDCObj ) ; 

VAR 

acft  ;  TransObj; 

BEGIN 

ASK  shiplist  TO  Add  (newship) ; 
acft  :»  ASK  newship . squadron  First (); 
WHILE  acft  <>  NILOBJ 

ASK  acft  TO  NewHDC  (HDC) ; 
acft  :«  ASK  newship . squadron 
Next (acft) ; 

END  WHILE; 

END  METHOD  {  AddShip  }; 


ASK  METHOD  AddLZBeach  (IN  newlz  :  LZBeachOb j ) ; 
BEGIN  . 


ASK  Izbeachlist  TO  Add  (newlz) ; 
END  METHOD  {  AddLZ  }; 


ASK  METHOD  DestroyCATF; 
VAR 

ship  :  ARGObj ; 
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1 2  ;  LZBeachOb j ; 

hdc  ;  HDCObj ; 
BEGIN  -  . 


IF  (  ASK  shiplist  numberln  >  0  ) 
ship  :=  ASK  shiplist  First (); 

WHILE  (  ship  <>  NILOBJ) „ 

ASK  shiplist  TO  RemoveThis (ship) ; 

ASK  ship  TO  DestroyARG; 

ship  :=  ASK  shiplist  First (); 

END  WHILE; 

END  IF; 

DISPOSE  (shiplist) ; 

IF  (ASK  Izbeachlist  numberln  >  0) 

Iz  :=  ASK  Izbeachlist  First (); 

WHILE  (  Iz  <>  NILOBJ) 

ASK  Izbeachlist  TO  RemoveThis  (Iz) ; 
ASK  Iz  TO  DestroyLZ; 

Iz  :=  ASK  Izbeachlist  First (); 

END  WHILE; 

END  IF; 

DISPOSE  (Izbeachlist); 

IF  (ASK  hdclist  numberln  >0) 
hdc  :*  ASK  hdclist  First (); 

WHILE  (  hdc  <>  NILOBJ) 

ASK  hdclist  TO  RemoveThis (hdc) ; 

ASK  hdc  TO  DestroyHDC; 
hdc  :=  ASK  hdclist  First (); 

END  WHILE; 

END  IF; 

DISPOSE  (hdclist) ; 

END  METHOD  {  DestroyCATF  } ; 


END  OBJECT  {  CATFObj  }; 

END  {  IMPLEMENTATION  }  MODULE  {  CATFMod  }. 

DEFINITION  MODULE  CreateARG; 

{ 

MODULE  NAME:  CreateARG  DATE  WRITTEN:  18  Mar  92 


58 


AirraOR:  S.  E.  Shaw  LAST  MODIFIED: 

Capt  USMC 

DESCRIPTION  :  The  procedures  here  cure  used  to  create  cill  of 
the  objects  in  the  simulation  and  to  initialize  the  current 
scenario . 

} 


FROM  CATFMod  IMPORT  CATFObj; 

FROM  HDCMOd  IMPORT  HDCOb  j  ; 

FRCM  RGlobals  IMPORT  SHierRecType ; 

PROM  AROfod  IMPORT  ARGOb  j  ; 

TYPE 

PROCEDURE  Scenario (IKOOT  CATP  :  CATFObj ; 

INOOT  HDC  :  HDCOb j ) ; 

PROCEDURE  MaJceSbips  PINOUT  CATF  :  CATFObj; 

INOUT  HDC  :  HDCObj) ; 

PROCEDURE  PlotLZ  (INOOT  CATF  :  CATFObj); 

PROCEDURE  BuildSerials  (INOOT  CATP  :  CATFObj; 

INOOT  HDC  :  HDCObj )  ; 

PROCEDURE  MakeAcft  (  INOUT  newrec  :  SHierRecType; 

INOOT  ship  ;  ARGOb j; 

INOUT  HDC  :  HDCObj ) ; 


BHD  {  DBFIHZTIQH  }  HODUXiB  {  CreateArg  }. 


nCPUBIBHTATZQH  MODULI  CreateARO; 

{ 

MODULE  NAME:  CreateARG  DATE  WRITTEN:  18  Mar  92 

AUTHOR:  S.  B.  Shaw  LAST  MODIFIED: 

Capt  USMC 

DESCRIPTION  :  The  procedures  here  are  used  to  create  all  of 
the  objects  in  the  simulation  euad  to  initialize  the  current 
scenario. 


FROM  RGlobals  IMPORT  SHierRecType, 

ShipSHArray, 

AcftSHArray, 
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LZSHArray , 

SerialSHArray ; 

FROM  CATEMod  IMPORT  CATFOb  j  ; 

FROM  Debug  IMPORT  TraceStream; 

FROM  ARaiod  IMPORT  ARGOb  j  ; 

FROM  HDCMod  IMPORT  HDCOb  j  ; 

FROM  LZBeach  IMPORT  LZBeachObj ; 

FROM  SerialMod  IMPORT  SerialObj ; 

FROM  Transport  IMPORT  TrsmsOb j ; 

PR(»I  FindSHRec  IMPORT  FindSHRec; 

FROM  global  IMPORT  mcreserials,  totalserials,  repetition, 
paxtolift,  cargotolift; 

PROM  Attack  IMPORT  AttackObj ; 

FROM  OutputDriver  IMPORT  Scenariorecorder ; 

FROM  Statistics  IMPORT  vehiclestatrec,  vehiclestatlist; 


PROCEDURE  Scenario (INOUT  CATF  ;  CATFOb j ; 

INOUT  HDC  :  HDCOb  j  ) 


BEGIN 


MakeShipa  (CATF,  HDC) ; 
PlotLZ  (CATF) ; 
BuildSerials  (CATF,  HDC) ; 


END  PROCEDURE  {  Scenario  }; 


PRC lEDURE  MakeShips ( INOUT  CATF  :  CATFOb j ; 

INOUT  HDC  :  HDCOb j ) ; 


VAR 

ship  :  AR(50bj; 
newrec  :  SHierRecType; 
i  : INTEGER; 

BEGIN 


i  1; 

IF  (repetition  -  1) 

ASK  Scenariorecorder  TO  WriteString 


(" . SHIP 

DATA . ; 


ASK  Scenariorecorder  TO  WriteLn; 

ASK  Scenariorecorder  TO  WriteLn; 

ASK  Scenariorecorder  TO  WriteString 


("SKIP  NAME  SHIP  TYPE  STARTx  STARTy 
HOLDx"+"  HOLDy"); 

ASK  Scenariorecorder  TO  WriteLn; 

ASK  Scenariorecorder  TO  WriteLn; 

END  IF; 

REPEAT 

newrec  ShipSHArray [i] ; 

IP  (newrec  -  NILREC) 

ASK  TraceStream  TO  WriteString( "NILREC  in 
MakeShipB") ; 

ASK  TraceStream  TO  WriteLn; 

END  IF; 

NEW  (ship)  ; 

ASK  ship  TO  ReadData  (newrec) ; 

IP  (repetition  «  1) 

ASK  Scenariorecorder  TO  Wri  test  ring  (ship.name-f 
"  ■+ship. type+"  " 

+INTTOSTR (ROUND ( ship. locat ion. x) )+ 

"  "+INTTOSTR(ROUND(ship. location. y) ) 

^  fl  N 

+INTTOSTR (ROUND ( ship. holdl ocat ion. x) ) 

+"  *+INTTOSTR(ROUND(ship.location.y)) ) ; 

ASK  Scenariorecorder  TO  WriteLn; 

END  IF; 

ASK  CATF  TO  AddShip  (ship,  HDC) ; 

MaikeAcft  (ne%^ec,  ship,  HDC)  ; 

INC(i) ; 

IF  (repetition  -  1) 

ASK  Scenariorecorder  TO  WriteLn; 

END  IF; 

UNTIL  (i  >  HIGH (ShipSHArray) ) ; 

END  PROCEDURE; 


PROCEDURE  PlotLZ  (INOUT  CATF  ;  CATFOb j ) ; 
VAR 


LZ  :  LZBeachOb j ; 

newLZ  :  SHierRecType ; 
i  : INTEGER; 
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BEGIN 


i  1; 


IF  (repetition  -  i) 

ASK  Scenariorecorder  TO  WriteLn; 

ASK  Scenariorecorder  TO  WriteLn; 

ASK  Scenariorecorder  TO  WriteString 

(•  . LZ 

DATA . 

ASK  Scenariorecorder  TO  WriteLn; 

ASK  Scenariorecorder  TO  WriteLn; 

ASK  Scenariorecorder  TO  WriteString 
(■LZ  NAME  LOCATIONx  LOCATIONy 
ASK  Scenariorecorder  TO  WriteLn; 

ASK  Scenariorecorder  TO  WriteLn; 

END  IF; 

REPEAT 

newLZ  LZSHArray  [i] ; 

IF  newLZ  «  NILREC 

ASK  TraceStream  TO  WriteString ( 'NILREC  in 
PlotLZS"); 

ASK  TraceStream  TO  WriteLn; 

END  IP; 

NEW(LZ); 

ASK  LZ  TO  ReadData  (newLZ) ; 

ASK  CATF  TO  AddLZBeach  (LZ) ; 

INC(i)  ; 

IF  (repetition  -  1) 

ASK  Scenariorecorder  TO  WriteString  (LZ.naine+ 
■  ■  + INTTOSTR  ( ROUND  (LZ.l  oca  t  ion.  x))  + 

"  "+INTTOSTR (ROUND (LZ. location. y) )+ 

"  "  INTTOSTR  ( LZ .  numlandingspots ) ) ; 

ASK  Scenariorecorder  TO  WriteLn; 

ASK  Scenariorecorder  TO  WriteLn; 

END  IP; 

UNTIL  (i  >  HIGH(LZSHArray) ) ; 

END  PROCEDURE  {  PlotLZ  }; 

PROCEDURE  BuildSerials  (INOUT  CATF  :  CATPOb j ; 

INOUT  HDC  :  HDCObj) ; 


")  ; 

SPOTS") ; 


VAR 


serial 


SerialObj ; 


€2 


newserlal  :  SBierRecType; 
i  rINTBGBR; 


BEGIN 

i  1; 

REPEAT 

newserlal  :•  SerialSHArray [1] ; 

IF  newserlal  ■  NILRSC 

ASK  TraceStreaa  TO  WrlteStrlng 
("NILREC  In  BulldSerlals") ; 

ASK  Traces treak  TO  WrlteLn; 

END  IF; 

NEW (serial); 

ASK  serial  TO  ReadData  (newserlal) ; 

ASK  HDC.serlalllst  TO  Add  (serial) ; 

IF  (repetition  -  1) 

paxtolift  paxtollft  serial. pax; 

cargotollft  :•  cargotollft  •¥  serial  .cargo; 
END  IF; 

INC(i); 

moreserials  l^UE; 

UNTIL  (1  >  HIGH(SerlalSHArray)) ; 

totalseflals  :•  ASK  HDC.serlalllst  number In; 

END  PROCEDURE  {  BulldSerlalS  }; 


PROCEDURE  MaUceAcft  (  INOUT  newrec  :  SHlerRecType; 

INOUT  ship  :  ARGObj;  , 

INOUT  HDC  :  HDCOb j ) ; 


VAR 

1 

n 

acft 

acftdata 

transports 

attack 

attackacft 

record 

BEGIN 

1  1; 
n  :  1 ; 


INTEGER; 
INTEGER; 
TremsOb  j ; 
SHlerRecType; 
BOOLEAN; 
BOOLEAN; 
AttackObj ; 
vehicles tat rec ; 
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transports  TRUE; 

WHILE  (  (newrec.OwnedString [1]  <>  "H”)  AND 
(newrec.OwnedString [i]  <>  "W")  AND 
(i  <  HIGH (newrec.OwnedString) )  ); 

INC  (i) ; 

END  WHILE; 

INC(i)  ; 

IP  (  (newrec.OwnedString [i-l]  -  "W")  OR 

(i  >«  HIGH (newrec.OwnedString) )  ) 
transports  FALSE; 

END  IF; 

IF  (treinsports) 

IF  (repetition  -  1) 

ASK  Scenariorecorder  TO  WriteString 
( •  Transports  Aboard : ■ ) ; 

END  IP; 

REPEAT 

FindSHRec  (AcftSHArray,  newrec.OwnedString [i] 
,acftdata) ; 

IF  (repetition  ■  1) 

ASK  Scenariorecorder  TO  WriteString 
(■  "+acftdata.TopString+*  " 
♦newrec.OwnedString [i+ll ) ; 

END  IF; 

n  3.; 

WHILE  (n  <•  (STRTOINT(newrec.OwnedString[i-fl] ) ) ) 
NEW(acft) ; 

ASK  acft  TO  ReadData  (acftdata) ; 

ASK  acft  TO  SetSide  (n) ; 

ASK  acft  TO  AssignMother (ship) ; 

ASK  acft  NewHDC  (HDC) ; 

ASK  acft  TO  SetLaunchTime  (STRTORSAL 
(ne%n:ec.0wnedString[i-i-l4-n] } )  ; 

TELL  acft  TO  Operate; 

ASK  ship . squadron  TO  Add(acft); 

IF  (repetition  •  1) 

NEW  (record) ; 

record. name  :•  acft .name; 

record,  sidenum  acft  .sidenuinber; 

record. mother  acft .a^mot her. name; 

ASK  vehicles tat list  TO  Add  (record) ; 
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INC(n); 

Em)  HHZLB; 

INCd/n+l)  ; 
n  : i ; 

TJNTIL  (  (i  >  HIGH(aewrec.Own^tring) )  OR 
(neurrec.OwnedStringd]  •  ■S*}  OR 
(neurrec.OwnedStringiii  •  *A*}  OR 
(newrec.OnmedStringtii  -  ■W")  ); 

IP  (repetition  «  1) 

ASK  Scenariorecorder  Tp  Nritelin; 

END  IP; 

END  IP; 

i  1; 
n  :■  1; 

attack  TROE; 

WHILE  (  (ne%n:ec.OwnedString[i]  <>  "A")  AND 
(newrec-<DwnedStringCil  <>  "W")  AND 
(i  <  RIGH(newrec.(^edString}}  ); 

INC  (i); 

END  WHILE; 

INC{i); 

IP  (  (nevrrec.OwnedStriagti-l]  -  'W")  OR 
(i  »  HlGH(newrec.OwnedString) )  ) 

attack  FALSE; 

END  IF; 

IF  (attack) 

IF  (repetition  »  1} 

ASK  Scenariorecorder  TO  WriteString 
(*  Attack  Ac£t  Aboaucd: ■) ; 

END  IP; 

REPEAT 

PindSHRec  (AcftSHArray,  newrec.OvnedString[i] 

,ac£tdata} ; 

IP  (repetition  >  1) 

ASK  Scenariorecorder  TO  WriteString 
(■  "••'acftdata.TopString-f*  ■ 
-fnewrec.OwnedString [i-fl] )  ; 

END  IF; 

n  ;  “  1  * 

WHILE  (n  <«(STRTOINT(newrec.O«medString[i-t-l] ) )) 
NEW(attackacft) ; 

ASK  attackacft  TO  ReadData  (acftdata) ; 


ASK  attackacft  TO  SetSide  (n) ; 

ASK  attackacft  TO  Ass IgsMother (ship) ; 

ASK  attacicacft  NewHDC  (HDC) ; 

ASK  attackacft  TO  SetLaunchTime  (STRTOREAL 
(ne%nrec.OwnedString[i+i+n] ) )  ; 

TELL  attackacft  TO  Operate; 

ASK  ship. squadron  TO  Add (attackacft) ; 

IP  (repetition  «  l) 

NEW  (record) ; 

record. name  attackacft . name ; 

record. 8 idenum  :» 

attackacft . sidenumber; 
record. mother 

attackacft . mymother . name ; 
TISK  vehiclestatlist  TO  Add  (record)  ; 
END  IP; 

INC(n)  ; 

END  WHILE; 

INC(i,n+l)  ; 
n  :  -  1 ; 

UNTIL  (  (i  >  HIGH(ne«rrec.OwnedString) )  OR 
(newrec.OwnedString [i]  -  “S")  OR 
(newrec.OwnedStringiil  «  "H")  OR 
(newrec.OwedStringiil  •  "W")  ); 

IP  (repetition  -  l) 

ASK  Scenariorecorder  TO  WriteLn; 

END  IF; 

END  IF; 


END  PROCEDURE  {  MedceAcft  }; 


END  {  mPLBKBNTATIQM  }  MODULE  {  CreataARG  }. 


DB7IHITI0H  MODULE  DebugRuni 

{ . 

MODULE  NAME :  FindSHRec 

AUTHOR:  M.  Bailey 

Prof  NPGS 


DATE  WRITTEN:  01  Mar  92 
LAST  MODIFIED:  18  Mar  92 
MODIFIED  BY:  S.  E.  Shaw 
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Caia:  DSMG 

DESCRIPTION  :  Used  to  turn  the  trouble  shooting  ntessages 
on  and  off. 

. - . - . — 

PROCEDURE  SetUpDdN  Trace  :  BOOI*B^)  ; 

BHD  {  DSFIVZTXOlir  }  MQODLS  {  D^ugSun  }. 


XMPLBKBHTATZOH  HQDULB  SebugSun; 

{ . - . 

MODULE  NAME:  FindSHRec  DATS  NRirTEN:  01  Mar  92 

AUTHOR:  M.  Bailey  LAST  MC^IFISD:  18  Mar  92 

Prof  NP6S  MODIFIED  BY:  S.  E.  Shaw 

Capt  USHC 

DESCRIPTION  :  Used  to  turn  the  trouble  shooting  messages 
on  emd  off. 

. - . } 


FRCM  lOMod  IMPORT  FileUseType (Output) ; 
FROM  UtllMOd  IMPORT  DateTime; 

FR^  Debug  IMPORT  TraceStream; 


PROCEDURE  SetUpD(IN  Trace  :  BOOLEAN); 


VAR  DT  :  STRING; 

BEGIN 

NSW  (TraceStream) ; 

ASK  TraceStream  TO  Open  ("debug,  out”,  Output); 

DateTime  (DT) ; 

ASK  TraceStream  TO 
ASK  TraceStream  TO 
ASK  TraceStream  TO 
ASK  TraceStream  TO 

IF  Trace 

ASK  TraceStream  TO  TraceOff; 

ASK  TraceStream  TO  HrlteString  ( "Initially,  trace  is 

on. ") ; 

ASK  TraceStream  TO  WrlteLn; 

ELSE 

ASK  TraceStream  TO  NrlteString(  "Initially,  trace  is 

off.") ; 

ASK  TraceStream  TO  WrlteLn; 

END  IF; 


Writestring (DT) ; 
WrlteLn; 

Writelin; 

Writeijn; 
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END  PROCEDURE; 


END  {  IMPLEMENTATION  }  MODULE  {  DebugRun  }. 


DEFINITION  MODULE  FlndSHReci 

{ 

MODULE  NAME;  FindSHRec  DATE  WRITTEN:  01  Mar  92 

AUTHOR:  M.  Bailey  LAST  MODIFIED:  18  Mar  92 

Prof  NPGS  MODIFIED  BY:  S.  E.  Shaw 

Capt  USMC 

DESCRIPTION  :  Searches  for  the  requested  data  record  from 
the  input  data  array. 


FROM  RGlobals  IMPORT  SHierRecType, 

SHArrayType ; 

PROCEDURE  FindSHRec (IN  SHArray  :  SHArrayType; 

IN  Topstring  :  STRING; 

OUT  SHRec  :  SHierRecI^e)  ; 

END  {  DEFINITION  }  MODULE  {  FindSHRec  }. 


IMPLEMENTATION  MODX7LE  FindSHRec; 


{ 

MODULE  NAME;  FindSHRec 
AUTHOR;  M.  Bailey 

Prof  NPGS 


DATE  WRITTEN;  01  Mar  92 
LAST  MODIFIED;  18  Mar  92 
MODIFIED  BY;  S.  E.  Shaw 

Capt  USMC 


DESCRIPTION  :  Searches  for  the  requested  data  record  from 
the  input  data  array.  ^ 


FROM  RGlobals  IMPORT  SHierRecType, 
SHArrayType ; 

FROM  global  IMPORT  DeBug; 


{ 


} 


PROCEDURE  FindSHRec (IN  SHArray  ;  SHArrayType; 

IN  Topstring  ;  STRING; 

OUT  SHRec  ;  SHierRecType) ; 


VAR 
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ThisRec  :  SHierRecType; 
i  :  INTEGER; 

BEGIN 

i  :  =  0  ; 

REPEAT 

INC ( i ) ; 

ThisRec  :=  SHArray[i] ; 

UNTIL({i  >=  HIGH (SHAr ray ) )  OR  (ThisRec .TopString  = 
Topstring) ) ; 

IF  (ThisRec .Topstring  =  TopString) 

SHRec  :=  ThisRec; 

ELSE 

SHRec  :=  NILREC; 

END  IF; 

END  PROCEDURE; 

END  {  IMPLEMENTATION  }  MODULE  {  PindSHRec  }. 


DEFINITION  MODULE  PuelGuage; 

{ 

MODULE  NAME:  FuelGuage  DATE  WRITTEN:  01  Mar  92 

AUTHOR:  S.  E.  Shaw  LAST  MODIFIED; 

Capt  USMC  MODIFIED  BY: 

DESCRIPTION  :  Procedures  used  to  track  the  fuel  usage  of 
the  Transport Craft  objects. 

} 

FROM  Transport  IMPORT  TransObj ; 

TYPE 

PROCEDURE  BurnFuel  (  IN  vehicle  :  TransObj ; 

IN  groundtime  ;  REAL; 

IN  flighttime  :  REAL) ; 

PROCEDURE  CheckGas  (  IN  vehicle  :  TransObj ; 

OUT  fuel required  :  BOOLEAN) ; 

PROCEDURE  Get fuel  (  IN  vehicle  :  TransObj ; 

OUT  duration  :  REAL) ; 


END  {  DEFINITION  }  MODULE  {  PuelGuage  }. 
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IMPLEMENTATION  MODULE  PuelGuage; 

{  . 

MODULE  NAME:  FuelGuage  DATE  WRITTEN:  18  Mar  92 

AUTHOR:  S.  E.  Shaw  LAST  MODIFIED: 

Capt  USMC  MODIFIED  BY: 

DESCRIPTION  :  Procedures  used  to  track  the  fuel  usage  of 
the  TransportCraf t  objects. 

} 

FROM  SimMod  IMPORT  SimTime; 

FROM  global  IMPORT  LocationXY,  Distance; 

FROM  Transport  IMPORT  TransObj ; 

FROM  Debug  IMPORT  TraceStream; 

PROCEDURE  BurnFiiel  (IN  vehicle  :  TransObj; 

IN  groundtime  :  REAL; 

IN  emptytime  :  REAL: 

IN  loadedtime  :  REAL) ; 


VAR 

groundburn  :  REAL; 
loadedburn  :  REAL; 
emptyburn  :  REAL; 
start fuel  :  REAL; 
endfuel  .  :  REAL; 


BEGIN 

groundburn  :=  vehicle. groundburnrate; 
loadedburn  :=  vehicle. loadedburnrate; 
emptyburnrate  :=  vehicle. emptyburnrate; 
start fuel  :=  vehicle. fuelonboard; 
endfuel  :=  startfuel 

-  {  groundburn  *  (groundtime/60.0)) 

-  (  emptyburn  *  ( empty t ime/6 0. 0) ) 

-  (  loadedburn  *  (loadedtime/60.0)); 
ASK  vehicle  TO  UseFuel  (endfuel) ; 


END  PROCEDURE  {  BurnFuel  }; 


PROCEDURE  Getfuel  (IN  vehicle  :  TransObj; 

OUT  duration  :  REAL) ; 

VAR 

amount  :  REAL; 

refuelrate  :  REAL; 
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max 

totfuel 


:  REAL; 
:  REAL; 


BEGIN 

amount  :=  vehicle .maxfuel  - 

vehicle . fuelonboard; 

TF  ( (vehicle. fuelonboard  <=  0.0)  AND 
(shov.'erri  :ra)  ) 

AG"  TraceStream  'iu  WriteString  ( "GetFuel 
''+vehicle.name+"  "  + 

INTTOSTR (vehicle . sidenumber) + 

"  OUT  OF  FUEL") ; 

ASK  TraceStream  TO  WriteLn; 

END  IF; 

refuelrate  :=  vehicle . destination. pumprate; 
duration  :=  amount  /  refuelrate; 

ASK  vehicle  TO  TakeOnFuel; 


END  PROCEDURE  {  Getfuel  }; 


PROCEDURE  CheckGas  (  IN  vehicle  :  TransObj ; 

OUT  fuelrequired  ;  BOOLEAN) ; 


VAR 

start 

end 

transitdist 

requiredfuel 

BEGIN 


LocationXY; 

LocationXY; 

REAL; 

REAL; 


fuelrequired  :=  FALSE; 

ASK  vehicle . serialonboard, source  TO  CurrentPos  (start.x, 
start .y) ; 

end  :=  vehicle. serialonboard. destination. location; 
transitdist  :=  Distance (start ,  end); 

requiredfuel  :=  ( ( (2.0  *  transitdist) /vehicle. loadedspeed) 
*  vehicle . loadedburnrate)  * 

1 . 3  +vehicle . minf uel ; 

IF  requiredfuel  >=  vehicle. fuelonboard 
fuelrequired  :=  TRUE; 

END  IF; 

END  PROCEDURE  {  CheckGas  }; 

f  } 


71 


{ 

END  {  IMPLEMENTATION  }  MODULE  {  FuelGuage  } 


} 


DEFINITION  MODULE  global; 


NAME: 

global 

DATE  WRITTEN:  18  Ma-  .;z 

AUTHOR: 

S .  E .  Shaw 

LAST  MODIFIED: 

Capt  USMC 

MODIFIED  BY: 

DESCRIPTION  ;  Cbntains  all  random  number  streams,  as  well 
as  several  control  variables.  Procedures  within  create  the 
random  variable  streams,  as  well  as  empty  queues  prior  to 
disposing  of  them. 


} 


FROM  RandMod  IMPORT  RandpmOb j ; 

FROM  Debug  IMPORT  DebugStream; 

FROM  GrpMod  IMPORT  QueueObj ,  RankedObj ; 
FROM  StatMod  IMPORT  RStatObj ; 


VAR 

moreserials 

showerrors 

In  t  e  riia  1 S  t  r  earn 

Ext  e  rna  1 S  t  r  eaim 

FoldStream 

Spreads t ream 

CargoStream 

ReturnTime 

RearmTime 

totalserials 

repetition 

paxtolift 

cargotolif t 


BOOLEAN; 
BOOLEAN; 
RandomOb j ; 
RandomOb j ; 
RandomOb j ; 
RandomObj ; 
RandomOb j ; 
RandomObj ; 
RandomObj ; 
INTEGER; 
INTEGER; 
REAL; 

REAL; 


TYPE 


DeBug  =  OBJECT (DebugStream) ; 

END  OBJECT; 

LocationXY  =  FIXED  RECORD 
X  :  REAL ; 
y  :  REAL ; 

END  RECORD  {  LocationXY  }; 

PROCEDURE  Distance  (IN  locationl  ;  LocationXY; 
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IN  location2  :  LocatlonXY)  :  SEAL; 

PROCSDUSE  NewSandooss; 

PROCEIKJRE  BoptyQ  (IN  queue  :  QueueObj); 

PROCSDUSE  Bn^tySankedQ  (IN  queue  ;  RaukedOb j }  ; 

BHD  {  DSFIHZTZOH  }  1H»>0LI  {  global  }. 


TMPT.BHKHTATIOM  MCmOLS  global; 


MODULE  NAME:  global  DATE  NRITTEN:  18  Mar  92 

AUTHOR:  S.  E.  Shaw  LAST  MODIFIED: 

Capt  USMC  MODIFIED  BY: 

DESCRIPTION  Contains  all  random  number  streams «  as  well 
as  several  control  variables.  Procedures  %rithin  create  the 
tandem  variable  streams,  cts  well  as  empty  queues  prior  to 
disposing  of  than. 

. - . } 


FROM  RandHod  IMPORT  KandooK^j; 

FRCM  ReeuiSeed  IMPORT  ReadSeed; 

PROM  MathMod  IMPORT  SQRT; 

FROM  GrpMod  IMPORT  QueueObj ,  RankedOb  j  ; 


PROCEDURE  Distance  (IN  locationl  :  LocationXY; 

IN  locationl  :  LocationXY) 


BEGIN 


:  REAL; 


RETURN  SQRT  ( (locationl.x  •  location!. x)  * 

(locationl. X  -  locationl.x)  +  (locationl. y 
•  location2.y)  *  (locationl. y  - 
locationS.y) ) ; 

END  PROCEDURE; 


PROCEDURE  Neidlandoms; 
BEGIN 


NSW  (IntemalStream) ; 

ASK  IntemalStream  TO  SetSeed  (ReadSeed ()) ; 
NSW  ( Externals tream) ; 

ASK  ExtemalStream  TO  SetSeed  (ReadSeedO  ) ; 
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NEW  ( Spreads tream) ; 

ASK  SpreadStream  TO  SetSeed  (ReadSeed ( ) ) ; 
NEW  ( Folds tream) ; 

ASK  FoldStream  TO  SecSeed  (ReadSsedO  ) ; 

NEW  (CargoStream) ; 

ASK  CargoStream  TO  SetSeed  (ReadSeed ()) ; 
NEW  (RetumTime) ; 

ASK  RetumTime  TO  SetSeed  (ReadSeed( ) )  ; 

NEW  (RearmTime) ; 

ASK  RearmTime  TO  SetSeed  (ReadSeed {)) ; 

END  PROCEDURE  {  NewRandoms  }; 

PROCEDURE  EmptyQ  ( IN  queue  :  QueueOb j ) ; 

VAR 

trash  :  ANYOBJ; 

BEGIN 

IF  (ASK  queue  numberln  >  0) 

trash  ASK  queue  First (); 

WHILE  (trash  <>  NILOBJ) 

ASK  queue  TO  RemoveThis (trash) ; 
trash  ASK  queue  First (); 

END  WHILE; 

END  IF; 

END  PROCEDURE  {  EmptyQ  }; 

PROCEDURE  Bn^tyRankedQ  (IN  queue  :  RankedOb j ) ; 

trash  :  ANYOBJ; 

BEGIN 

IF  (ASK  q\ieue  numberln  >  0) 

trash  :»  ASK  queue  First () ; 

WHILE  (trash  <>  NILOBJ) 

ASK  queue  TO  RemoveThis (trash) ; 
trash  ASK  q^eue  First (); 


END  WHILE; 

END  IF; 

END  PROCEDURE  {  EnptyRankedQ  }; 

END  {  ZMPLBMSNTATIOII  }  MODULE  {  global  }. 


DBFIHITZON  MODULE  Input) 

{  . 

MODULE  NAME:  Input  DATE  WRITTEN:  01  Mar  92 

AUTHOR:  M.  Bailey  LAST  MODIFIED:  18  Mar  92 

Prof  NFGS  MODIFIED  BY:  S.  E.  Shaw 

Capt  USMC 

DESCRIPTION  :  Reads  the  file  containing  the  names  of  all 
data  files  used  for  the  simulation. 
. } 


PROCEDURE  ReadEmAll; 

END  {  DEFINITION  }  MODULE  {  Input  }. 

ntPLENENTATION  MODULE  Input) 


MODULE  NAME: 

Input 

DATE  WRITTEN: 

01  Mar  92 

AUTHOR: 

M.  Bailey 

LAST  MODIFIED: 

18  Mar  92 

Prof  NPGS 

MODIFIED  BY; 

S.  E.  Shaw 

Capt  USMC 

DESCRIPTION  :  Reads  the  file  containing  the  names  of  all 
data  files  used  for  the  simulation. 
. } 


FROM  RGlobals  IMPORT  FileNameType; 

FROM  lOMod  IMPORT  StreamObj ,  FlleUseType (Input) ; 

FR(M  RGlobals  IMPORT  MasterFlleName, 

AcftSHArray,  ShipSHArray,  SpotSHArray,  LZSHArray, 
OutputFileName,  SerialSHArray; 

FROM  RGlobals  IMPORT  SeedArray; 

FROM  ReadLst  IMPORT  ReadLst; 

FROM  ReadSeed  IMPORT  ReadTheSeeds ; 

FRCM  global  IMPORT  DeBug; 

VAR 
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AcftFileName, 

ShlpFlleName , 

SpotFlleNaone, 

LZPlleName, 

SerlalFlleName , 

SeedFileNaine  :  FileNameType; 


{  . . 

PROCEDURE  ReadAcft; 

{ 

BEGIN 

ReadLst  (Acf tSHArray  ,  AcftFileNazne) ; 
END  PROCEDURE  {  ReadAcft  } ; 

{ 

PROCEDURE  ReadShip; 


BEGIN 

ReadLst (ShlpSHAr ray  ,  ShipFlleNaoe) ; 
END  PROCEDURE  {  ReadShip  }; 

{ . 

PROCDURE  ReadSpots; 


BEGIN 

ReadLst  (Spo tSHArray  ,  SpotFileNaune) ; 

END  PROCEDURE  {  ReadSpots  } ; 

{ . 

PROCEDURE  ReadLZ; 

{ 

BEGIN 

ReadLst (LZSKAr ray,  LZFlleName} ; 

END  PROCEDURE  {  ReadLZ  }; 

{  . 

PROCEDURE  ReadSerlal; 

{ . 

BEGIN 

ReadLst {SerialSHArray,  SerlalFlleName) ; 
END  PROCEDURE  {  ReadSerlal  }; 


} 

} 


} 

} 


} 

} 


} 

} 


} 

} 


PROCEDURE  ReadBmAll; 


{ 

{ 
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} 

} 


Pile  :  StreamObj; 
Str  ;  STRING; 


BEGIN  - 

NEW(Pile); 

ASK  File  TO  Open (MaaterPileName ,  Input}; 

ASK  File  TO  ReadStriiig(AcftFileN^e)  ; 
ASK  File  TO  ReadLine(str) ; 

ASK  File  TO  Readstring  (ShipFileName)  ; 
ASK  File  TO  ReadLine(str) ; 

ASK  File  TO  Readstring  ( Spot FileMaioe )  ; 
ASK  File  TO  Readlilne  (str) ; 

ASK  File  TO  Readstring  ( LZFileNaine) ; 

ASK  File  TO  ReadLine (str) ; 

ASK  File  TO  Readstring (SerialFileName) ; 
ASK  File  TO  ReadLine (str) ; 

ASK  File  TO  Readstring (SeedFileName) ; 
ASK  File  TO  ReadLine (str) ; 

ASK  File  TO  Read3tring(OutputFlleName) ; 
ASK  File  TO  ReadLine (Str) ; 

ReadAcft; 

ReadShip; 

ReadSpots ; 

ReadLZ; 

ReadSerial ; 

ReadTheSeeds (SeedPileName) ; 

END  PROCEDURE  {  ReadonAll  }; 

■HD  {  Inpl  Mentation  }  MQDOLI  {  Input  }. 


DIFZHITIOW  MODULI  HDOiodf 

{ . . . . . . . . 

module  NAME:  HDCNod  DATE  MRITTBN:  18  Mar  92 

AUTHOR:  S.  E.  Shaw  LAST  MODIPIID: 

Capt  USMC  MODIFIED  BY: 

DESCRIPTION  :  The  Helicopter  Direction  Center  c^j  is  used 
to  control  the  TransportCraft  movements.  This  object  assigns 
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serials  to  the  craft,  as  well  as  direct  where  the  craft  go  to 
pick  up  their  next  serial. 


FRC»4  GrpMod  IMPORT  QueueOb  j ,  RankedOb  j  ; 
FROM  SeriaUfod  IMPORT  SerlalObj; 

FROM  AROfod  IMPORT  ARGOb  j ; 

FROM  IiZBeach  IMPORT  LZBeachObj; 

EXPORTTYPE 

HDCObj  -  OBJECT;  FORWARD; 

TYPE 


Brief IngRec  -  RECORD 
serial  :  IMTEGBR; 
dest  :  ARGOb  j ; 

Iz  :  LZBeachObj; 

loadsize  :  INTEGER; 

END  RECORD; 

SerialListObj  -  OBJECT  (RankedObj ) ; 

OVERRIDE 

ASR  METHOD  Rank  (IN  a,  b  :  ANYOBJ)  :  INTEGER; 
END  OBJECT  {  SerialListObj  }; 

HDCObj  -  OBJECT; 

serlallist  :  SerialListObj; 

ASK  METHOD  Objinit; 

ASK  METHOD  GiveLoad  (IN  serialnum  :  INTEGER; 

OUTnewload  :  SerialObj } ; 
ASK  METHOD  GiveFlrstLoad  (IN  ship  ;  STRING; 

IN  acftslze  :  INTEGER; 
OOT  newload  :  SerialObj ; 
OUT  othership  :  BOOLEAN)  ; 
ASK  METHOD  NewDestination  (OUT  briefing  : 

Brief ingRec; 
IN  acftsize  : 

INTEGER; 
OUT  assignedaload 
:  BOOLEAN); 

ASK  METHOD  DestroyHDC; 

ASK  METHOD  CombineLoads  (IN  briefing  :  Brief ingRec; 

OUT  ccxnbined  :  BOOLEAN)  ; 

END  OBJECT  {  HDCObj  }; 

SHE  {DBFINITIOH  }  MODULI  {  HDCHod  }. 
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XMPLBUIiXIlTXQII  UODULB  SDOfod} 


MC»>ULE  NAME:  HDOtod  DATE  WRITTEN:  18  Mau:  92 

AUTHOR:  S.  B.  Shaw  LAST  MODIFIED: 

Capt  USMC  MODIFIED  BY: 

DESCRIPTION  :  The  Helicopter  Direction  Center  pbj  is  used 
to  control  the  TransportCraft  moveo^ts.  This  object  assigns 
serials  to  the  craft,  sis  well  as  direct  where  the  craft  go  to 
pick  up  their  next  serial. 


FROM  SerialMod  IMPORT  SerialObj  ; 

FRC»(  SinMod  IMPORT  SioiTiine; 

FRCM  global  IMPORT  moreserials ,  EnptyQ,  Bn^>tyReUikedQ; 
FROM  RGlobals  IMPORT  SerialSBArray; 

FR(»i  Debug  IMPORT  TraceStream; 

OBJECT  SerialListObj ; 


ASK  METHOD  Rank  (IN  a,  b  :  ANYOBJ)  :  INTEGER; 
VAR 

seriala,  serialb  :  SerialObj; 

BEGIN 

seriala  :>  a; 
serialb  :«  b; 

IF  seriala. priority  <  serialb. priority 
RETURN  -1; 

ELSIF  seriala. priority  >  serialb. priority 
RETURN  1; 

ELSE 

RETURN  0; 

END  IF; 

END  METHOD  {  Rank  }; 


END  OBJECT  {  SerialListObj  }; 

OBJECT  HDCObj; 
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ASK  METOOD  Objinit; 

BEGIN 

NEN(serlalli8t) ; 

END  METHCK}  {  Objinit  }; 

ASK  METHOD  GlveLoad  (IN  serialnum  :  INTEGER; 

OOT  newload  :  SerlalOb j ) ; 

VAR 

thlsload  :  BOOLEAN; 
checJcthla  :  SerialOb j ; 

BEGIN 

thleload  :«  FALSE; 

checkthis  ASK  aeriallist  First (); 

IF  (checkthis  <>  NIIXDBJ) 

WHILE  NOT  thisload 

IF  checkthis .  serialnxun  «  serialuxixn 
ASK  aeriallist  TO  ReicoveThis 
(checkthis) ; 
thisload  TRUE; 

ELSE 

checkthis  ASK  seriallist  Next 

(checkthis) ; 

END  IF; 

END  WHILE; 

END  IF; 

newload  checkthis; 

END  METHOD  {GlveLoad  }; 


ASK  METHOD  GiveFirstLoad  (IN  ship  :  STRING; 

IN  acftslze  :  INTEGER; 

OUT  newload  :  SerialObj ; 
OUT  other ship  :  BOOLEAN) ; 

VAR 

goodload  :  BOOLEAN; 

repositionload  :  BOOLEAN; 


GO 


■'  checkthiB  ?-  '-Seriaid^t- : 

BEQIN  '  ■ 

■ •  i  :»  1;  '  • 

goodload  :*  FA^iiSE;  :r 

othe^kip  F%^; 
checktliis  :«  ASK  seriallist:  First  ()  ; 

REPEAT  . 

IP  {{checlcthie.aource.naiBe  •  ship)  AND 
fNoif  <*eckt^a..ailcK»t^)  AJiD 
(checkthis.iainlif tslze  <•  acftslze) } ; 

goodload  :■  TRUE; 
newload  im  chetpictiiia; 

END  IF; 

chockthia  ASK  serial  1  is  t  Neact  (checkthia)  ; 
INC  (iJ;  ~  : 

UNTIL  ((goodload)  OR  (i  >  ASK  serieJ,Xiat  nusiberin) } 

IP  (NOT  goodload) 
i  1; 

checkthia  :>  ASK  seriallist  First (); 

REPEAT 

IP  '( (NOT  checkthia. aaiocated)  AND 
( checkthia .minliftsise  <-  acftaize)) 
repositionload  :«  TRUE; 
newload  checkthia; 

END  IP; 

checkthia  :«  ASK  seriallist  Next  (checkthia) 
INC  (i); 

UNTIL  ( (repositionload)  OR  (i  >  ASK  seriallist 
nuniberin) ) ; 
othership  TRUE; 

END  IP; 

ASK  newload  TO  AllocateSelf ; 

Eiro  METHOD  {  GivePirstLoad  }; 


ASK  METHOD  Netd)e0tination  (  OUT  briefing  ;  Brief IngRec; 

IN  acftslze  :  INTEGER; 

OUT  assignedaload  :  BOOLEAN) 

VAR 

cleared  :  BOOLEAN; 

checkthia  :  SerialObj ; 
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BSQ^ 


:«  xxy]Bk)ez:Xa; 

:  ^iignedaiO)^  :» 

jKD^tbriMing)  f 

clfiiiareji .::  * .  .  -  ... 

cbecktlwis  T«  sftriaiii^  First  (); 

IF  serialsleft  >0 
RBJ«AT 

IF  '((NOT  checktbis.SLXXocat^)  Ana 

(checkthis.mixxliftslze  <-  aettsizs) ) 

|i£]C  checkthls  TO  Allocate^Xf ; 
bfief^^.tldst  :«  checkt^i.soxirce; 
brief ibg. serial  :- 
checkthls- serialnum; 
briefls^.loadsize  :* 
checkthis.mlxiliftsize;  ; 
cleared  :■  TRUE; 
aseignthisload  cbecKtbis; 
assignedaload  :*  TRUE; 

END  IF; 

cbeckthis  :«  ASK  seriallist  Next  (cbecJctbis) ; 
UNTIL  ((cleared)  OR  (checkthis  -  NILOBJ)); 

ELSE 


moreserlals  :«  FALSE; 

END  IF; 

IF  (assignthisload  -  NILOBJ) 
brief ing.dest  :•  NILOBJ; 
briefing. serial  -100; 
cleared  TRUE; 

END  IF; 

END  METHOD  {  Neid^stination  } ; 


I 


ASK  METHOD  DestrovHDC; 


.9  i 


lEEND  NBTaL#  {  .} 


ASK  MgraOD  Ccagblnelioada  {IN  briefing  :  Brief ingiiec; 
OUT  combined  I  BOOLEAN)  ; 

VAR 

found  :  BOOLED; 

cbecktbis  :  SerieXC^j; 
firatload  Seri^apb57 
eecOTdloed  T  SerialOb^; 
march  :  BOOLEAN; 

dest  :  SH^OiG; 

BEGIN 

fotmd  ;<*  FALSE; 

checltthis  :»  ASK  seric0.1i8t  First ()  ; 

IP  (checkthis  <>  NILOBJ) 

REPEAT 

IF  (checkthis. serialnum  •>  briefing. serial) 
found  :«  TRUE; 
firstload  :»  checkthis; 

ELSE 

checkthis  ;•  ASK  seriallist 
Next ( checkthis ) 

END  IP; 

UNTIL  ( (checkthis  »  NILOBJ)  OR  (fouxxi)); 

END  IF; 

IP  (NOT  found) 

ccxobined  FALSE; 


ELSE 


IF  (briefing. dest  -  NILOBJ); 
dest  briefing. Iz. name; 

ELSE 

dest  briefing. dest .name; 

END  IP; 

checkthis  NILOBJ; 

match  FALSE; 

checkthis  ASK  serieLllist  First (); 


IP  (checktliis  <>  NlliOBJ} 

REPEAT 

IF ( (checkthis. destination. name  -  dest) 
AND  (checkthis. source. name  « 
f irs tload . source . name ) 

AND  (checkthis. minliftsize  >  1) 

AND  (NOT  checkthis. allocated) ) 

secondload  :•  checkthis; 
match  TRUE; 

ELSE 

checkthis  ASK  seriallist 
Next (checkthis) ; 

END  IP; 

UNTIL  ((match)  OR  (checkthis  -  NILOBJ) ) 

END  IF; 

IP  (match) 

combined  TRUE; 

ASK  firs  tload  TO  AddPax  ( secondload.  pauc) ; 

ASK  firstload  TO  AddCargo  (secondload. cargo) ; 
ASK  8eriad.list  TO  RemovcThis  (secondload) ; 

END  IP; 

END  IP; 

END  MBTH^  {  CombineLoads  }; 


END  OBJECT  {  HDCObj  }; 


BHD  {  mPLBKBHTATZGH  }  MODULB  {  BDCMod  }. 


DBFZHZTZOH  liODUUI  LZBesohi 


MODULE  NAME:  LZBeach  DATE  WRITTEN:  18  Mar  92 

AUTHOR:  S.  B.  Shaw  LAST  MODIFIED: 

Capt  USMC  MODIFIED  BY: 

DESCRIPTION  :  Defines  the  landing  zone/beach  objects. 
Tracks  the  eunount  of  cargo  and  pax  delivered  to  each  LZ.  Uses 
the  OutputDriver  to  output  this  data  to  the  output  file. 


PROM  global  IMPORT  LocationXY; 
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FRCM  t 

Wk(M  S^tMan  IM^RT  S^otdMbndbj; 

F&dt  S0iatoal8  xi^RT  SHierftectype; 


BXPORTTYPJS 

itZBeacI^bj 

TYPE 


OBJECT;  PORWftRD; 


LZBeachCabj  -  OBJECT; 


namia 

location 

paxinzone 

totalsortlea 

cargolnzone 

fac 

numland Ingapota 
priorcargo  - 
prlorpax 


STRISG; 

LocationXY; 

REAL; 

INTEGER; 

REAL; 

SpotMemObj ; 

INTEGER; 

REAL; 

REAL; 


ASK  METHOD  ReadOata  (IN  ziewlz  :  SHierRo^^pe) ; 
ASK  MBTH<»  ^jinit; 

ASK  METHOD  ReceiveLoad  (IN  pax  :  REAL; 

IN  cargo  :  REAL; 

IN  nuxnserlals  :  INTEGER}  ; 

ASK  METHOD  DestroyLZ; 


END  OBJECT  {  LZBeachObj  ); 

BSD  {  DSPZSXTZGV  }  MOODLB  {  LZBMOhObj  }. 


heplbbbzatkbi  modulb  LZBaaehi 


{ 


MODULE  NAME: 
AUTHOR: 


LZBeach 
S.  E.  Shaw 
Capt  USNC 


DATE  WRITTEN: 
LAST  MODIFIED: 
MODIFIED  BY: 


18  Mar  92 


DESCRIPTION  :  Defines  the  landing  zone/beach  objects. 
Tracks  the  amount  of  cargo  and  pax  delivered  to  each  LZ.  Uses 
the  OutputDriver  to  output  this  data  to  the  output  file. 


FROM  global  IMPORT  LocationXY,  totalserlals; 
FR^  Statistics  IMPORT  lastdellverytlme; 

FRCM  ResMod  IMPORT  ReaourceOb  j ; 

FROM  RGlobals  IMPORT  SHierRecType; 

PROM  SinMOd  IMPORT  SimTime; 

FR^  Debug  IMPORT  TraceStream; 


PROM  OutputDriver  IMPORT 
OBJECT  IiZBeaclsOb  j  ; 


ASK  IffiTHOO  Objinit; 

BEGIN 

Sm  (f^c); 

END  METHOD  {  Objinit  }; 

f::::;:::;;:;;;;:;:::::;::;: 

ASK  MBIBOD  ReadData  (IN  nevlz  :  SHlerRecType}  ; 

BEGIN 

name  :«  newlz.Tc^tringj 

location. X  :«*  Sl^TORSAL(ne«lz.Owne<IString[l] ) ; 
location. y  :•  STRTC^ElJtCnevIz.OimedStrixkgrrEi ) ; 

ASK  fac  TO  PaintSpots  (name,  name,  (3BJm^NAMB(SSLP) , 
oumlandingapotB ) ; 

ASK  fac  TO  SetNameCname) ; 

END  HBTHCH3  {  ReadData  }; 


ASK  METHOD  RecelveLoad  (IN  pax  REAL; 

IN  cargo  :  REAL; 

IN  nximserlals  :  INTEGER)  ; 

BEGIN 

cargoinzone  :•  cargoinzone  *  cargo; 
peucinzone  paxinzone  *  pax; 

WrlteLZData  (pax,  cargo) ; 

INC  (totalsorties) ; 

totalserlale  totalserials  -  numserlals; 

IP  (totalserials  -  0) 

lastdeliverytlme  SiinTlmeO  ; 

END  IP; 

END  METHOD  {  RecelveLoad  } ; 


DeystroyLZ; 

BEGIN 

ASK  fac  TO  DestroySpotBbnr 
DISPOSE  (SELF) ; 

END  MBTHC^  {  DeBtroyLZ  }; 

END  OBJECT  {  LZBeachObj  }; 

END  {  nCPLEMDreATZOai  }  {  LZB«acb<S>j  }. 


DEFIHZTZOH  MODOLB  LoadProcedoras } 

{  .  . 

MODULE  NAME:  LoadProcedtires  DATE  WRITTEN:  3  Apr  92 

AUTHOR:  S.  E.  Shaw  LAST  MODIFIED: 

Capt  USMC  MODIFIED  BY: 

DESCRIPTION  :  These  procedures  determine  the  time  required 
to  load  and  unload  each  serial. 

. } 

FROM  Transport  IMPORT  TransObj ; 

FROM  Attack  IMPORT  AttackObj ; 

TYPE 


PR(X:SDURE  LoadCargo  (IN  vehicle  ;  TransObj; 

OUT  loadtime  :  REAL) ; 

PROCEDURE  UnLoadCargo  (IN  vehicle  :  TransObj; 

OUT  loadtime  :  REAL) ; 

PROCEDURE  ReArmAcft  (IN  vehicle  :  AttackObj; 

OUT  rearmtime  :  REAL) ; 

BKD  {  OS7ZHZTZOV  }  MQDOLB  {  LoadPxooednzes  }. 


IMPLEMEWTATZOM  UODQLM  LoadProceduzesi 

{ 

MODULE  NAME:  LoadProcedures  DATE  WRITTEN:  3  Apr  92 
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AUTHOR:  S.  E.  Shaw  LAST  MODIFIED: 

Capt  USMC  MODIFIED  BY: 

DESCRIPTION  :  These  procedures  determine  the  time  required 
to  load  and  unload  each  serial. 

} 


FROM  Transport  IMPORT  TransOb j ; 

FROM  RandMod  IMPORT  RandomObj; 

FROM  Attack  IMPORT  AttackObj  ; 

FROM  SimMod  IMPORT  SimTime; 

FROM  global  IMPORT  IntemalStream,  BxtemalStream, 
Cargos treeun,  RearmTime; 


TYPE 


PROCEDURE  LoadCargo  (IN  vehicle  :  TramsObj ; 

OUT  loadtime  :  REAL) ; 


VAR 


load type 

pax 

cargo 

ptime 

ctime 


STRING; 

REAL; 

REAL; 

REAL; 

REAL; 


BEGIN 

loadtype  :-  vehicle. serialonboard. lift; 
pax  :■  vehicle. serialonboard. pax; 
cargo  :-  vehicle. serialonboard. cargo; 
ptime  :-  ASK  IntemalStream  UniformReal  (1.0,5.0)'»' 
(pax  /  100.0)  *  ASK  IntemalStream 
UniformReaKlS.O,  25.0); 
ctime  :=  ASK  CargoStream  Exponential 
(vehicle. cargotime) ; 


IF  (loadtype  -  "INTERNAL") 

loadtime  ((ptime)  +  (cargo  /  1000.0)  ♦  ctime); 

ELSIF  (loadtype  -  "EXTERNAL") 

loadtime  :>  ASK  ExtemalStream  Exponential 
(vehicle. extemaltime)  ; 

END  IF; 

END  PROCEDURE  {  LoadCargo  }; 


! 

\ 


} 


PROCEDURE  UnLoadCargo  (IN  vehicle  :  TransOb j ; 


88 


OUT  loadtime  :  REAL) ; 


VAR 

load type  :  STRING; 

pax  :  REAL; 

cargo  :  REAL; 

ptime  :  REAL; 

ctime  :  REAL; 

BEGIN 

loadtype  vehicle. serialonboard. lift; 

pax  vehicle. serialonboard. pax; 

cargo  : *  vehicle . serialonboard . cargo ; 
ptime  ASK  IntemalStream  UniformReal  (l.O,  5.0); 

ctime  ASK  CargoStream  Exponential 

(vehicle. cargotime) ; ; 

IF  (loadtype  »  ■INTERNAL") 

loadtime  (ptime)  +  ((cargo  /  1000. 0)  *  ctime); 


ELS IF  (loadtype  »  "EXTERNAL") 


load time 
END  IF; 


ASK  ExtemalStream  Exponential 
(vehicle. extemaltime) ; 


END  PROCEDURE  {  UnLOadCargo  }; 


PROCEDURE  ReArmAcft  (IN  vehicle  ;  AttackObj ; 

OUT  rearmtime  :  REAL) ; 

BEGIN 

rearmtime  :»  ASK  RearmTime  UniformReal  (25.0,  60.0); 
END  PROCEDURE  {  ReArmAcft  }; 


BND  {  mPLBMKNTATION  }  MODULE  {  LoadProcedures  }. 


DEFINITION  NODULE  OutputDrivar; 


MODULE  NAME :  OutputDriver 

AUTHOR:  S.  E.  Shaw 

Capt  USMC 


DATE  WRITTEN;  4  May  92 
LAST  MODIFIED; 

MODIFIED  BY: 
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DESCRIPTION:  Opens  all  output  files,  combines  files  as 
necessary  to  form  the  final  scenario  file,  then  closes  all 
files. 


FROM  LZBeach  IMPORT  LZBeachOb j ; 

FROM  lOMod  IMPORT  StreamObj ,  FileUseType  (Output); 
FROM  CATFMod  IMPORT  CATPOb j ; 


} 


VAR 


LZrecorder 

Scenariorecorder 

StatsRecorder 

FinalOutputPile 

EndTimerecorder 

datestamp 


StreamObj ; 
StreamObj ; 
StreamObj ; 
StreamObj ; 
StreamObj ; 
STRING; 


TYPE 


PROCEDURE  OpenFiles; 

PROCEDURE  WriteLZData  (IN  pax  :  REAL; 

IN  cargo  :  REAL) ; 

PROCEDURE  CombineFiles; 

PROCEDURE  CloseFiles; 

END  {  Definition  }  MODULE  {  OutputDriver  }. 


IMPLEMENTATION  MODULE  OutputDriver | 

( . . 


MODULE  NAME: 
AUTHOR: 


OutputDriver 
S.  B.  Shaw 
Capt  USMC 


DATE  WRITTEN: 
LAST  MODIFIED: 


18  Mar  92 
5  Jun  92 


DESCRIPTION  :  Opens  all  output  files,  combines  files  as 
necessary  to  form  the  final  scenario  file,  then  closes  all 
files . 


FROM  lOMod  IMPORT  StreamObj,  FileUseType  (Output,  Input); 
FROM  UtilMod  IMPORT  DateTime; 

FROM  SimMod  IMPORT  SimTime; 

FROM  CATFMod  IMPORT  CATFOb j ; 

FROM  RGlobals  IMPORT  Output FileName; 

FROM  Statistics  IMPORT  before jump; 

FROM  global  IMPORT  paxtolift,  cargotolift; 


} 
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PROCEDURE  OpenFiles; 
BEGIN 


DateTime  (datestamp) ; 

NEW  (LZrecorder) ; 

ASK  LZrecorder  TO  Open  (  OutputFileName  +  "lz.  out ",  Output)  ; 
ASK  LZrecorder  TO  WriteString  (datestanp) ; 

ASK  LZrecorder  TO  WriteString  ("  ■+OutputFileNeUne)  ; 

ASK  LZrecorder  TO  WriteLn; 

ASK  LZrecorder  TO  WriteString ( "  TIME  BEFOREJUMP 

JUMP  ■  +  "  AFTERJDMP"); 

ASK  LZrecorder  TO  WriteLn; 

NEW  (Scenariorecorder) ; 

ASK  Scenariorecorder  TO  Open  ( "Scenario. out " ,  Output); 
ASK  Scenariorecorder  TO  WriteLn; 

ASK  Scenariorecorder  TO  WriteLn; 

NEW  (BndTimerecorder) ; 

ASK  EndTimerecorder  TO  Open  (OutputFileName  +  "End. out", 
Output) ; 

ASK  EndTimerecorder  TO  WriteString  (datestan^j)  ; 

ASK  EndTimerecorder  TO  WriteString  ("  "+OutputPileName) ; 
ASK  EndTimerecorder  TO  WriteLn; 

ASK  EndTimerecorder  TO  WriteLn; 

NEW  (StatsRecorder) ; 

ASK  StatsRecorder  TO  Open  ( "Stats. out" ,  Output); 

ASK  StatsRecorder  TO  WriteString ( " . 

. Stats . ")  ; 

ASK  StatsRecorder  TO  WriteLn; 

ASK  StatsRecorder  TO  WriteLn; 

END  PROCEDURE  {  OpenFiles  }; 


PROCEDURE  WriteLZData 

(IN  pax 

:  REAL; 

VAR 

IN  cargo 

:  REAL) ; 

X  : 

REAL; 

paxjuitp  : 

REAL; 

cargo jump  ; 

REAL; 

totaljxamp  : 

REAL; 

BEGIN 

X  SimTimeO; 

paxjump  ((pax  /  peoctolift) /2.0)  ; 
cargo jun^  :■  ((cargo  /  cargotolif t) /2 . 0) ; 
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total  jun^-  :»  pax  jump  +  cargojunp; 

ASK  LZrecorder  TO  WriteString (REALTOSTR (x) +»  "+ 

REALTOSTRCbeforejunq)) +"  ■ +REALTOSTR( total junp) )  ; 

beforejunp  :*  beforejunp  +  total jump; 

ASK  LZrecorder  TO  WriteString  ( "  *  +REALTOSTR  (before jun^)) )  ; 
ASK  LZrecorder  TO  WriteLn; 


END  PROCEDURE  {  WriteLZData  }; 


PROCEDURE  ClosePilea; 

BEGIN 

ASK  LZrecorder  TO  Close; 

ASK  EndTimerecorder  TO  Close; 
ASK  Scenariorecorder  TO  Close; 
ASK  StatsRecorder  TO  Close; 

CombinePiles; 

DISPOSE  (LZrecorder) ; 

DISPOSE  (Scenariorecorder) ; 
DISPOSE  (StatsRecorder) ; 
DISPOSE  (FinalOutputPile) ; 

END  PROCEDURE  {  CloseFiles  }; 


PROCEDURE  CombinePiles; 


VAR 

placeholder  ;  STRING; 

BEGIN 

ASK  Scenariorecorder  TO  Open  ( "Scenario -out" ,  Input); 

ASK  StatsRecorder  TO  Open  ( "Stats .cut" ,  Input); 

NEW  (FinalOutputPile) ; 

ASK  FinalOutputPile  TO  Open  (OutputFileNaine+"  .  txt" , 
Output) ; 

ASK  FinalOutputPile  TO  WriteString  (datestanp) ; 

ASK  FinalOutputPile  TO  WriteString  ( "  "+OucputFileName) ; 
ASK  FinalOutputPile  TO  WriteLn; 

ASK  FinalOutputPile  TO  WriteLn; 
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WHILE  (  NOT  Scenariorecorder.eof ) 

ASK  Scenariorecorder  TO  ReadLine  (placeholder) ; 

ASK  FinalOutpucFile  TO  WriteString  (placeholder) ; 
ASK  FinalOutputFile  TO  WriteLn; 

END  WHILE; 

ASK  FinalOutpatFile  TO  WriteLn; 

ASK  FinalOutpucFile  TO  WriteLn; 

ASK  Scenariorecorder  TO  Close; 

ASK  StatsRecorder  TO  Open  ( "Stats. out " ,  Input); 

WHILE  (  NOT  StatsRecorder .eof) 

ASK  StatsRecorder  TO  ReadLine  (placeholder) ; 

ASK  FinalOutputFile  TO  WriteString  (placeholder) ; 
ASK  FinalOutputFile  TO  WriteLn; 

END  WHILE; 

ASK  StatsRecorder  TO  Close; 

ASK  Scenariorecorder  TO  Delete; 

ASK  StatsRecorder  TO  Delete; 

ASK  FinalOutputFile  TO  Close; 

END  PROCEDURE  {  CombineFiles  }; 

»  '  *  « 


END  {  IMPLEBCENTATION  }  MODULE  {  OutpUtDrlver  }. 


DEFINITION  MODULE  Procedures; 

{  . 

MODtJLE  NAME:  Procedures  DATE  WRITTEN:  18  Mar  92 

AUTHOR:  S,  E.  Shaw  LAST  MODIFIED: 

Capt  USMC  MODIFIED  BY: 

DESCRIPTION  :  These  2  procedures  assign  the  source  and 
destination  to  each  serial  as  it  is  read  in.  This  information 
is  entered  as  a  STRING  and  must  be  converted  to  the 
appropriate  object. 


FROM  HDCMod  IMPORT  HDCOb j ; 
FROM  CATFMod  IMPORT  CATFObj ; 

TYPE 


PROCEDURE  FindSource  (INOUT  HDC  :  HDCOb j; 
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IN  CAT?  :  CATFOb j ) ; 


PROCEDURE  FindDestination  (INOUT  HDC  :  HDCOb j ; 

IN  CATP  :  CATFOb j ) ; 

END  {  DEFINITION  }  MODULE  {  Procedures  }. 


IMPLEMENTATION  MODULE  ProcediireS; 

{ . 


MODULE  NAME:  Procedures  DATE  WRITTEN:  18  Mar  92 

AUTHOR:  S.  E.  Shaw  LAST  MODIFIED: 

Capt  USMC  MODIFIED  BY: 

DESCRIPTION  :  These  2  procedures  assign  the  source  aind 
destination  to  each  serial  as  it  is  read  in.  This  information 
is  entered  as  a  STRING  and  must  be  converted  to  the 
appropriate  object. 


FROM  ARC3tod  IMPORT  ARGOb  j  ; 

FROM  LZBeach  IMPORT  LZBeachObj; 
PROM  SerialMod  IMPORT  SerialObj ; 
FROM  HDCMod  IMPORT  HDCOb j ; 

FROM  global  IMPORT  DeBug; 

FROM  CATFMod  IMPORT  CATFOb j; 


PROCEDURE  FindDestination  (INOUT  HDC  :  HDCObj; 

IN  CATF  :  CATFOb j ) ; 


VAR 

gohere 

checkzone 

dropoff 

load 

gooddest 

i 


STRING; 
LZBeachObj ; 
LZBeachObj ; 
SerialObj ; 
BOOLEAN; 
INTEGER; 


BEGIN 

i  :  ■  0 ; 

load  :-  ASX  HDC.seriallist  FirstO; 


WHILE  load  <>  NILOBJ 
INC(i) ; 

gohere  :»  load. goto; 
gooddest  :*  FALSE; 
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checkzone  :»  ASK  CATP.lzbeachlist  First {); 
REPEAT 

IF  gohere  «  checkzone . nas^ 
gooddest  TRUE; 
dropoff  :«  checkzone; 

END  IF; 

checkzone  :«  ASK  CATP.lzbeachlist  Next 

(checkzone) ; 

UNTIL  (gooddest) ; 

IP  gooddest 

ASK  load  TO  SetDestination  (dropoff) ; 

ELSE 

OUTPUT  ( 'HDC  ERROR  IN  PINDESTINATION  ■ ) ; 
OUTPUT  (load. goto,  "  ■ , load.gofrcan,  "  ", 

load.serialniim,  ■  ",  load. cargo,  ■  ", 

load. pax, "  ", load. prior ity, " 

", load. lift) ; 

END  IP; 

load  :*  ASK  HDC.seriallist  Next  (load) ; 

END  WHILE; 

END  PROCEDURE  {  FindDestination  } ; 


PROCEDURE  FindSource  (INOUT  HDC  ;  HDCObj; 

IN  CATP  :  CATPOb j ) ; 


VAR 

frcxivhere 

checkship 

origin 

goods our ce 

load 

i 


STRING; 
ARGOb j ; 
ARGOb j ; 
BOOLEAN; 
SerialObj ; 
INTEGER; 


BEGIN 

load  ;■  ASK  HDC.seriallist  First (); 
i  0; 

WHILE  load  <>  NILOBJ 
INC(i) ; 

fromhere  load.gofrom; 
goodsource  FALSE; 

checkship  ASK  CATP. shiplist  FirstO; 


REPEAT 

IF  fromhere  -  checkship. name 
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goodflource  :■  TRUE; 
origin  chec)cship; 

END  IF; 

checlcship  :«  ASK  CATF.shiplist 
Next  (checlcship)  ; 

UNTIL  (goodsource) ; 

IP  goodsource 

ASK  load  TO  SetSource  (origin) ; 

ELSE 

OUTPUT  ("HDC  ERROR  IN  PINDSOURCE  “)  ; 

OUTPUT  ( load. goto, *  ", load. gof row, ■  ", 

load.serialnum, ■  ", load. cargo, "  ", 

load. pax, ■  ",  load. priority, " 
",load.lift) ; 

END  IF; 

origin  :  -■  NILOBJ ; 

load  :»  ASK  HDC. serial list  Next  (load); 

END  WHILE; 

END  PROCEDURE  {  FindSource  }; 


END  {  TKPLiamreATKW  }  KODULB  {  ProcaduTM  }. 

DSFIHZTIOiT  MODULE  R«adL8t| 

{ . 

MODULE  NAME:  ReadLst  DATE  WRITTEN:  01  Mar  92 

AUTHOR:  M.  Bailey  LAST  MODIFIED:  18  Mar  92 

Prof  NPGS  MODIFIED  BY:  S.  E.  Shaw 

Cape  USMC 

DESCRIPTION  :  Reads  the  input  data  files.  Puts  all  data 
into  arrays  for  later  use. 


FROM  RGlobals  IMPORT  SHArrayType, 

FileNameType ; 

PROCEDURE  ReadLst  (INOUT  SHArray  :  SHArrayType,- 

IN  FileNcune  :  FileNameType) ; 

BED  {  DEFIEITION  }  MODULE  {  ReadLst  }. 


XMPLBMBETATZOE  MODULE  ReadLst; 
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{ 


MODULE  NAME:  ReadLst  DATE  WRITTEN:  01  Mar  92 

AUTHOR:  M.  Bailey  LAST  MODIFIED:  18  Mar  92 

Prof  NPGS  MODIFIED  BY:  S.  B.  Shaw 

Capt  USMC 

DESCRIPTION  :  Reads  the  input  data  files.  Puts  all  data 
into  arrays  for  later  use. 


PROM  lOMod  IMPORT  StreamObj ,  FileUseType (Input) ; 

PROM  RGlobals  IMPORT  SHArrayType, 

FileNameType; 

FROM  ReadSH  IMPORT  ReadSH; 

FROM  global  IMPORT  DeBug; 

{ . . } 

PROCEDURE  ReadLst (TNOUT  SHArray  :  SHArrayType; 

IN  FileNanie  :  FileNameType) ; 


VAR 

File  :  StreamObj ; 

numberOfSH  :  INTEGER; 

i  :  INTEGER; 

error  :  BOOLEAN; 

string  :  STRING; 

BEGIN 

NBW(Pile) ; 

ASK  File  TO  Open (FileName,  Input); 

ASK  File  TO  Readint (numberOfSH) ; 
ASK  File  TO  ReadLine ( string ) ; 

NEW (SHArray,  1. .numberOfSH) ; 

FOR  i  1  TO  numberOfSH 

ReadSH(File,  SHArray[i],  error); 

END  FOR; 

END  PROCEDURE  {  ReadLst  }; 

END  {  IMPLEMENTATION  }  MODX7LB  {  ReadLst  }. 


DEFINITION  MODX7LB  ReadSeed; 

{ 

MODULE  NAME :  ReadSeed 

AUTHOR;  M.  Bailey 

Prof  NPGS 


DATE  WRITTEN:  01  Mar  92 

LAST  MODIFIED:  18  Mar  92 
MODIFIED  BY;  S.  B.  Shaw 
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Capt  USMC 


DESCRIPTION  :  Used  to  read  the  initial  seeds  for  the 
random  variedjle  streams. 

} 


FRC»!  RGlobals  IMPORT  FileNameType ; 

PROCEDURE  ReadSeedO  :  INTEGER ; 

PROCEDURE  ReadTheSeeds ( IN  PileName  ;  FileNameType); 

BHD  {  DEFINITION  }  MODULE  {  S«adSe«d  }. 


nCPLEKEHTATION  MODULE  ReadSeedi 

{ .  . 

MODULE  NAME:  ReadSeed  DATE  WRITTEN:  01  Mar  92 

AUTHOR:  M.  Bailey  LAST  MODIFIED:  18  Mar  92 

Prof  NPGS  MODIFIED  BY:  S.  B.  Shaw 

Capt  USMC 

DESCRIPTION  :  Used  to  read  the  initial  seeds  for  the 
random  varicdsle  streams. 

.  . } 


FROM  global  IMPORT  DeBug; 

PROM  lOMod  IMPORT  FileUseType (Input) , 
StreamObj ; 

FROM  RGlobals  IMPORT  FileNameType, 
SeedCount,  SeedArray; 


{ 

PROCEDURE  ReadSeedO  ;  INTEGER; 

{ . 

BEGIN 

IF  (SeedCount  >  HIGH (SeedArray) ) 

OUTPUT ("Ran  out  of  seeds  with  count  «  ■  + 
INTTOSTR (SeedCount) ) ; 

OUTPUT ("Ran  out  of  seeds,  make  more  ■) ; 

WAT.T* 

RETU^(O)  ; 

ELSE 

IF  (SeedCount  <-  0) 

SeedCount  :•  l; 

END  IF; 

INC (SeedCount) ; 

RETURN (SeedArray (SeedCount  -  1]); 

END  IF; 

END  PROCEDURE; 


} 

} 
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{  } 

PROCEDURE  ReadTheSeeda  { IN  PileName  :  PileNameType)  ; 

{  } 

VAR 

file  :  StreamObj ; 

Str  :  STRING; 

i  :  INTEGER; 

NuoberOfSeeds  :  INTEGER; 


BEGIN 

NEW (file) ; 

ASK  file  TO  Open (PileName,  Input) ; 

ASK  file  TO  Readint (NumberOf Seeds ) ; 
NEW(Seei'.lArray,  1.  .NumberOf Seeds)  ; 

FOR  i  :=  1  TO  NumberOf Seeds 

ASK  file  TO  Readint (SeedArrayCi] ) ; 
ASK  file  TO  ReadLine(str) ; 

END  FOR; 

END  PROCEDURE; 

END  {  HfPLEKBNTATIOIf  >  MODULE  {  ReadSead  }. 


DBFIHITiCRir  MODULE  ReadSB; 

{ 

MODULE  NAME:  ReadSH  DATE  WRITTEN:  01  Mar  92 

AUTHOR:  M.  Bailey  LAST  MODIFIED:  18  Mar  92 

Prof  NPGS  MODIFIED  BY:  S.  B.  Shaw 

Capt  USMC 

DESCRIPTION  :  Reads  the  data  arrays  from  the  input  files. 

} 


PROM  RGlobals  IMPORT  SHierRecType ; 

FROM  lOMod  IMPORT  StreamObj; 

PROCEDURE  ReadSH (  IN  Pile  :  StreamObj; 

OUT  SHeirRec  :  SHierRecType; 
OUT  error  :  BOOLEAN) ; 

END  {  DEFINITION  }  MODULE  {  RMdSE  >. 


IMPLEMENTATION  MODULE  ReadSH; 

{ .  . 

MODULE  NAME:  ReadSH  DATE  WRITTEN:  01  Mar  92 
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AUTHOR; 


M.  Bailey 
Prof  NPGS 


LAST  MODIFIED:  18  Mar  92 
MODIFIED  BY:  S.  E.  Shaw 


Capt  USMC 

DESCRIPTION  :  Reads  the  data  arrays  from  the  input  files. 

. } 


FROM  lOMod  IMPORT  StreamObj ,  PileUseType (Input) ; 
FROM  RGlobals  IMPORT  SHierRecTyoe ; 

PROM  global  IMPORT  DeBug; 

FROM  lOMod  IMPORT  ReadKey; 


PROCEDURE  ReadSH(  IN  File  :  StreamObj; 

OUT  SHierRec  :  SHierRecType ; 

OUT  error  :  BOOLEAN) ; 

{  } 


TYPE 

StringRecType  -  RECORD 
String  :  STRING; 

Next  :  StringRecType; 
END  RECORD; 


VAR 


string  :  STRING; 

numberOfStrings  ;  INTEGER; 

StringRec,  OldStringRec  :  StringRecType; 


first 

arrow 


StringRecType ; 
STRING; 


StringRec 

i 

z 


StringRecType ; 
INTEGER; 

CHAR; 


BEGIN 

NEW (SHierRec) ; 

ASK  Pile  TO  Reads t ring (SHierRec. Tops t ring ) ; 
NEW (StringRec) ; 
numberOfStrings  :•  1; 
first  :«  StringRec; 


ASK  Pile  TO  ReadString (arrow); 


IP  arrow  <>"->" 

OUTPtJT( "f ile  not  formatted  correctly"); 
error  : -  TRUE ; 

RETURN; 

ELSE 

error  FALSE; 

EITO  IF; 
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WHILE  String  "\\" 


ASK  File  TO  ReadStriug (String) ; 

IP  string  -  " . . " 

ASK  File  TO  ReadLine (string) ; 

ELSE 

OldStringRec  StringRec; 

StringRec. String  string; 

NEW (StringRec) ; 

OldStringRec. Next  :»  StringRec; 
nximberOf Strings  numberOf Strings  +  1* 

END  IF; 

END  WHILE; 

ASK  File  TO  ReadLine (string) ; 

IF  (nximberOf Strings  >  0)  AND  NOT  error 

NEW(SHierRec.OwnedString,  1 .. numberOf Strings  -  2)  ; 
StringRec  :«  first; 

FOR  i  :»  1  TO  numberOf Strings  -  2 

SHierRec.OwnedStringli]  StringRec. String; 
StringRec  stringRec.Next ; 

END  FOR; 

END  IF; 

END  PROCEDURE  {  ReadSH  }; 

END  {  nCPLBKBNTATION  }  KODtTLB  {  ReadSH  }. 


DEFINITION  NODULE  RGlobalsi 

{ 


MODULE  NAME:  RGlobalS  DATE  WRITTEN:  01  Mar  92 

AUTHOR:  M.  Bailey  LAST  MODIFIED:  18  Mar  92 

Prof  NPGS  MODIFIED  BY:  S.  B.  Shaw 

Capt  USMC 

DESCRIPTION  :  Contains  global  varielbles  primarily  used  for 
the  input  of  data. 


} 


CONST 

MasterFileName  »  "OPpleua.dat" ; 


ITPE 

FileNameType  -  STRING; 

SArrayType  -  ARRAY  INTEGER  OF  STRING; 

SHierRecType  -  RECORD 
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Topstring  ;  STRING; 
OwnedString  :  SArrayType; 
END  RECORD; 


SHArrayTyne  »  ARRAY  INTEGER  OF  SHierRecType; 
SeedArrayiype  «  ARRAY  INTEGER  OP  INTEGER; 


VAR 

Ships HArray 

SpotSHArray 

AcftSHArray 

LZSHArray 

SerialSHArray 

SeedArray 

Output FileName 

SeedCount 


SHArrayType ; 
SHArrayType ; 
SHArrayType ; 
SHArrayType ; 
SHArrayType ; 
SeedArrayType ; 
PileNameType ; 
INTEGER; 


END  {  DEFINITION  }  MODULE  {  RGlobals  }. 


DEFINITION  MODULE  SerlalMod; 

{ 

MODULE  NAME:  SerialMod  DATE  WRITTEN:  18  Mar  92 

AUTHOR:  S.  E.  Shaw  LAST  MODIFIED: 

Capt  USMC  MODIFIED  BY: 


DESCRIPTION  :  Defines  the  serial  objects  to  be  transported 
in  the  simulation. 

. } 


FROM  LZBeach  IMPORT  LZBeachObj ; 
FROM  ARGMod  IMPORT  ARGOb j ; 

FROM  RGlobals  IMPORT  SHierRecType ; 

EXPORTTYPE 

SerialObj  »  OBJECT;  FORWARD; 


TYPE 

CargoLiftType 

SerialObj 

destination 

source 

serialnum 

cargo 

pax 

priority 
lif ttype 
goto 
go from 
lift 


(internal,  external); 


LZBeachObj ; 
ARGOb j ; 
INTEGER; 
REAL; 

REAL; 

INTEGER; 

STRING; 

STRING; 

STRING; 

STRING; 


OBJECT; 
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allocated  :  BOOLEAN; 

minliftsize  :  INTEGER; 
external speed  :  REAL; 

ASK  METHOD  ReadData  (IN  newserial  :  SHierRecType) ; 
ASK  METHOD  SetDestination  (INOUT  to  :  LZBeachOb j ) ; 
ASK  METHOD  SetSource  (INOUT  from  :  ARGOb j ) ; 

ASK  METHOD  AllocateSelf ; 

ASK  METHOD  DeAllocateSelf ; 

ASK  METHOD  DestroySerial ; 

ASK  METHOD  AddPax  (IN  newpax  :  REAL)  ; 

ASK  METHOD  AddCargo  (IN  newcargo  :  REAL) ; 

END  OBJECT  {  SerialObj  }; 

END  {  DEFINITION  }  MODULE  {  SerlalKod  }. 


IMPLEMENTATION  MODULE  SerialMod} 


MODULE  NAME:  SerialMod  DATE  WRITTEN;  18  Mar  92 

AUTHOR:  S.  E.  Shaw  LAST  MODIFIED: 

Capt  USMC  MODIFIED  BY; 


DESCRIPTION  :  Defines  the  serial 
in  the  simulation. 


objects  to  be  transported 


} 


FROM  ARGMod  IMPORT  ARGObj  ; 

PROM  LZBeach  IMPORT  LZBeachObj; 
FROM  RGlobals  IMPORT  SHierRecTjTpe  ; 
FROM  Debug  IMPORT  TraceStream; 

VAR 

placeholder  :  STRING; 

OBJECT  SerialObj ; 


ASK  METHOD  ReadData  (IN  newserial  ;  SHierRecType) ; 

BEGIN 

serialnum  ;=  STRTOINT (newserial. OwnedString [l] ) ; 

goto  :-  newserial .OwnedString [2] ; 

gofrom  :-  newserial.OwnedString[3] ; 

cargo  ;=  STRTOREAL (newserial .OwnedString [4] ) ; 

pcix  STRTOREAL  (newserial  .OwnedString  [5]  )  ; 

priority  :-  STRTOINT (newserial .OwnedString [6] ) ; 

lift  ;«  newserial .OwnedString [7] ; 

minliftsize  :-  STRTOINT (newserial .OwnedString [8] ) ; 

extemalspeed  STRTOREAL  (newserial. OwnedString  [9]  )  ; 
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END  METHOD  {  ReadData  } 


j 


ASK  METHOD  SetSource  (INOUT  from  :  ARGObj); 
BEGIN 

source  :■  from; 

END  METHOD  {  SetSource  }; 


ASK  METHOD  SetDestlnatlon  (INOUT  to  :  LZBeachObj); 
BEGIN 

destination  :«  to; 

END  METHOD  {  SetDestination  }; 


ASK  METHOD  DeAllocateSelf ; 
BEGIN 

allocated  FALSE; 

END  METHOD; 


ASK  METHOD  AllocateSelf ; 
BEGIN 

allocated  TRUE; 
END  METHOD; 


} 


ASK  METHOD  DestroySerial; 
BEGIN 

destination  NILOBJ; 
source  :•  NILOBJ; 

DISPOSE  (SELF) ; 

END  METHOD  {  DestroySerial  }; 
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ASK  METHOD  AddPax  (IN  newpax  :  REAL)  ; 
BEGIN 

pax  peuc  +  ne«rpax; 

END  METHOD  {  AddPax}; 


ASK  METHOD  AddCargo  (IN  newcargo  :  REAL) ; 
B^IN 

cargo  :*  cargo  +  newcargo; 

END  METHOD  {  AddCargo); 


END  OBJECT  {  SerialObj  }; 

END  {  ZMPLBKBNTATIQN  }  MODULE  {  SerlalMOd  }. 


DEFINlTiaN  MODULE  SpotManf 

{  . 

MODULE  NAME:  SpotMan  DATE  WRITTEN:  18  Mar  92 

AUTHOR:  S.  B.  Shaw  LAST  MODIFIED: 

Capt  USMC  MODIFIED  BY; 

DESCRIPTION  :  This  object  controls  the  landing  emd 
launching  of  the  TransportCrf at .  It  tracks  the  allocation  and 
use  of  each  landing  spot. 

. } 


PROM  GrpMod  IMPORT  QueueOb j ,  RankedOb j ; 
FROM  SpotObj  ect  IMPORT  SpotObj ; 

TYPE 


StarboardDObj  -  OBJECT  ( RankedOb j ) ; 

OVERRIDE 

ASK  METHOD  Rank  (IN  a,  b  :  ANYOBJ)  :  INTEGER; 

END  OBJECT  {  StarboardDObj  }; 

SpotManObj  -  OBJECT 

name  :  STRING; 

starboardD  :  StarboardDObj ; 

spotsavall  :  QueueObj ; 
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awaitinglaunch  :  QueueObj ; 


ASK  METHOD  Objlnit; 

ASK  METHOD  SetNamedN  newname  :  STRING); 

ASK  METHOD  PaintSpots  (IN  shiptype  :  STRING; 

IN  shlpname  :  STRING; 

IN  spot type  :  STRING; 

OUT  numspots  :  INTEGER) ; 
ASK  METHOD  DestroySpotMan; 

END  OBJECT  {  SpotManagerObj  }; 

END  {  DEFINITION  }  MODULE  {  SpotManager  }. 


IMPLEMENTATION  MODULE  SpotlSan) 


MODULE  NAME :  SpotMan 

AUTHOR:  S.  E.  Shaw 

Capt  USMC 


DATE  WRITTEN:  18  Mar  92 

LAST  MODIFIED; 

MODIFIED  BY: 


DESCRIPTION  :  This  object  controls  the  landing  emd 
launching  of  the  TransportCraft.  It  tracks  the  allocation  and 
use  of  each  landing  spot. 


FROM  ResMod  IMPORT  ResourceObj ; 

FROM  GrpMod  IMPORT  QueueObj  ; 

FROM  PindSHRec  IMPORT  FindSHRec; 

FROM  RGlobals  IMPORT  SHierRecType ,  SpotSHArray, 

FROM  SpotObject  IMPORT  SpotOb j ; 

FROM  global  IMPORT  Eit5)tyRankedQ,  EmptyQ,  repetition; 

FROM  Transport  IMPORT  TransOb j ; 

FROM  Statistics  IMPORT  Izspotstatlist ,  shipspotstatlist , 
spotstatrec; 

OBJECT  StarboardDObj ; 


ASK  METHOD  Rank  (IN  a,  b  :  ANYOBJ)  ;  INTEGER; 
VAR 

acfta,  acftb  ;  TransOb j ; 

BEGIN 

acfta  a; 
acftb  b; 

IF  acfta. fuelonboard  <  acftb. fuelonboard 
RETURN  - 1 ; 


106 


ELSIP  acfta.fuelonboard  >  acftb.fuelonboard 
RETURN  1; 

ELSE 

RETURN  0; 

END  IF; 

END  METHOD  {  Rank  }; 


END  OBJECT  {  StarboardDObj  }; 
{■ 

OB.TECT  SpotManObj; 


ASK  METHOD  Objinit; 

BEGIN 

NEW  (awaltinglaunch) ; 
NEW  (starboardD) ; 

NEW  (spotsavail) ; 

END  METHOD  {  Objinit  }; 


ASK  METHOD  PalntSpots  (IN  shlptype  :  STRING; 

IN  shlpname  :  STRING; 

IN  spot type  :  STRING; 
OUT  numspots  :  INTEGER)  ; 


VAR 

spotdata 

spot 

i 

record 


SHierRecType; 
SpotOb j ; 
INTEGER; 
spotstatrec; 


BEGIN 

FindSHRec  (SpotSHArray,  shlptype,  spotdata) ; 
numspots  STRTOINT  ( spotdata. OwuedStrlng [1] ) ; 


FOR  i  1  TO  numspots 
NEW  (spot)  ; 

ASK  spot  TO  SetNumber  (i) ; 

ASK  spot  TO  Size  (STRTOINT (spotdata. 

OwnedString[i+lJ ) ) ; 
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ASK  spotsavail  TO  Add  (spot) ; 


IP  (repetition  »  l) 

NEW  (record) ; 

record. name  :*  shipname; 

record. number  i; 

IF  (spottype  «  "ARCSObj") 

ASK  shipspots tat list  TO  Add  (record) ; 

ELSE 

ASK  Izapotstatlist  TO  Add  (record) ; 
END  IP; 

END  IP; 

END  FOR; 

END  METHOD  {  PaintSpotS  }; 

ASK  METHOD  SetNamedN  newname  :  STRING); 

BEGIN 

name  newname; 

END  METHOD  {  SetName  }; 


ASK  METHOD  DestroySpotMam; 

VAR 

spot  :  SpotOb j ; 

BEGIN 

EnqptyRankedQ  (starboardD) ; 

DISPOSE  (StarboardD) ; 

Bn^tyQ  (awaitinglaunch) ; 

DISPOSE  (  awaitinglaunch) ; 

spot  :•  ASK  spotsavail  First (); 

WHILE  (  spot  <>  NILOBJ) 

ASK  spotsavail  TO  RemoveThis (spot) ; 

ASK  spot  TO  DestroySpot; 

spot  : >  ASK  spotsavail  First ( ) ; 

END  WHILE; 

DISPOSE  (spotsavail) ; 

DISPOSE  (SELF) ; 

END  METHOD  {  DestroySpotMeUi  }; 
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END  OBJECT  {  SpotManagerObj  }; 

END  {  mPLSmaiTATIOH  }  KODDLB  {  SpOtXan  }. 


DBFIHITZOH  MODULE  SpotObj«Ct} 


MODULE  NAME:  SpOtObj  DATE  WRITTEN:  23  Mar  92 

AUTHOR:  S.  E.  Shaw  LAST  MODIFIED: 

Capt  USl«:  MODIFIED  BY: 


DESCRIPTION  :  Defines  the  landing  spots  for  the  ARGObj  and 
for  the  LZBeachObj . 

. } 


FROM  StatMbd  IMPORT  RStatObj; 
TYPE 


SpotObj  •  OBJECT 
spotniunber 
spotsize 
open 

acftcnspot 

acftsidenum 

inuseat 

landings 


INTEGER; 

INTEGER; 

BOOLEAN; 

STRING; 

INTEGER; 

REAL; 

INTEGER; 


allocatedtime  :  U40NIT0RED  REAL  BY  RStatObj ; 

allocatedtimestats  :  RStatObj ; 


ASK  METHOD  Objinit; 

ASK  ME'fHOD  SetNumber  (IN  i  :  INTEGER)  ; 

ASK  METHOD  Size  (IN  i  :  INTEGER); 

ASK  METHOD  Allocate  (IN  acft  :  STRING;  IN  side  : 
INTEGER) ; 

ASK  METHOD  DeAllocate; 

ASK  METHOD  DestroySpot; 

END  OBJECT  {  SpotObj  }; 

END  {  DBFZHITIGir  }  MODULE  {  SpotObj 


mPLaOENTATIOir  module  SpotObj  act; 

{ 
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MODULE  NAME:  SpotObj  DATE  WRITTEN:  24  Mar  92 

AUTHOR;  S.  B.  Shaw  LAST  MODIFIED; 

Capt  DSMC  MODIFIED  BY; 

DESC31IPTION  :  Defines  the  landing  spotq  for  the  ARGObj  and 
for  the  LZBeachObj . 

. } 


FROM  Sintftod  IMPORT  SimTime; 
FROM  Debug  IMPORT  TraceStream; 


OBJECT  SpotObj; 

j;::;;;::;:;;:: 


ASK  METHOD  Objinit; 

BEGIN 

NEW  (allocatedtimestats) ; 

AOIMDNITOR  (allocatedtime,  allocatedtisnestats)  ; 
END  METHOD  {  Objinit  }; 


ASK  METHOD  SetNumber  (IN  i  ;  INTEGER)  ; 
BEGIN 

spotnunober  :«  i; 

END  METHOD  {  SetNumber  }; 


ASK  METHOD  Size  (IN  i  :  INTEGER) ; 
BEGIN 

spotsize  :«  i; 

ASK  SELF  TO  DeAllocate; 

END  METHOD  {  Size  }; 


I 

ASK  METHOD  Allocate  (IN  acft  :  STRING;  IN  side  :  INTEGER)  ; 
BEGIN 

INC  (landings) ; 
inuseat  : =  SimTime ( ) ; 
open  :«  FALSE; 
acftonspot  acft; 
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acftsidenum  :«  side; 
END  METHOD  {  Allocate  }; 


ASK  METHOD  DeAllocate; 

BEGIN 

allocatedtime  SinTimeO  -  inuseat; 
open  :»  TRUE; 

END  METHOD  {  DeAllocate  }; 


I 


I 


ASK  METHOD  DestroySpot; 
BEGIN 

DISPOSE  (SELF) ; 

END  METHOD  {  DestroySpot  }; 


END  OBJECT  {  SpOtObj  }; 

SHD  {  HCPLBICENTATIOV  }  MODULE  {  SpotObj  }. 


DBFIHITiaM  MODULB  SpotProcedures ; 


MODULE  NAME:  SpotProcedures  DATE  WRITTEN:  24  Mar  92 

AUTHOR:  S.  B.  Shaw  LAST  MODIFIED: 

Capt  USMC 

DESCRIPTION  :  The  procedures  used  to  allocate,  deallocate 
which  SpotObjects  are  in  use,  which  are  available  for  use. 


PRC»4  Transport  IMPORT  TrsmsObj; 

FRC»1  SpotObject  IMPORT  SpotObj ; 

PROM  HDCMOd  IMPORT  HDCOb j ; 

PROM  SpotMam  IMPORT  SpotMamObj; 

TYPE 

PPOCEDURE  InitialLaunch  (IN  requestor  :  TransObj ; 

OUT  available  :  BOOLEAN) ; 
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PROCEDURE  GetShipSpot  (IN  requestor  :  TransObj; 

OUT  available  :  BOOLEAN) ; 


PROCEDURE  GetLZSpot  (IN  requestor  :  TransObj; 

OUT  availaible  :  BOOLEAN)  ; 

PROC!EDURE  GetSpot  (IN  requestor  :  TramsObj; 

IN  controller  :  SpotMauiObj  ; 

OUT  available  :  BOOLEAN) ; 

PROCEDURE  GiveBackShipSpot  (IN  requestor  :  TransObj); 

PROCEDURE  GiveBaclcLZSpot  (IN  requestor  :  TransObj); 

PROCEDURE  FindSpot  (IN  requestor  :  TransObj; 

IN  controller  :  SpotManObj; 

OUT  spot  :  SpOtOb j ) ; 

END  {  DBFnrXTZON  }  1K»>ULB  {  SpotProcsdures  }. 


mPLEHBBTATZCH  MODULB  SpotProcedures ; 

{ . 

MODULE  NAME:  Spot  Procedures  DATE  WRITTEN:  24  Mar  92 

AUTHOR:  S.  E.  Shaw  LAST  MODIFIED: 

Capt  USMC 

DESCRIPTION  :  The  procedures  used  to  allocate,  deallocate 
which  SpotObjects  are  in  use,  which  are  available  for  use. 


FROM  Transport  IMPORT  TransObj ; 
FROM  Spot Object  IMPORT  SpotObj; 
FROM  HDCMod  IMPORT  HDCOb  j  ; 

FROM  SpotMan  IMPORT  SpotManOb j ; 
FROM  SinMod  IMPORT  SinTime; 

PR(»!  Debug  IMPORT  TraceStreaxn; 

TYPE 


PROCEDURE  InitialLaunch  (IN  requestor  :  TransObj; 

OUT  available  :  BOOLEAN) ; 

VAR 

checkspot  :  SpotObj ; 
i  :  INTEGER; 

controller  :  SpotManObj; 

BEGIN 
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controller  ;*=  requestor-roymother.airboss; 
i  1; 

available  FALSE; 

checkspot  :»  ASK  controller. spotsavail  First (); 
REPEAT 

IP  ( (checkspot .open)  AND  (  checkspot .spot size  >= 
requestor. spotsizereqd) ) 
available  TRUE; 

ASK  checicspot  TO  Allocate  (requestor. name, 
requestor. sidenuunber)  ; 


ELSE 

checkspot  ASK  controller .spotsavail 

Next (checkspot) ; 

END  IF; 

INC  (i); 

UNTIL  ( (i  >  ASK  controller . sx}otsavail  nuisberin)  OR 

(availaO^le) ) ; 

IF  NOT  available 

ASK  controller. await inglaxjnch  TO  Add(reque8to>') ; 
END  IF; 

END  PROCEDURE  {  InitialLaunch  } ; 


PROCEDURE  GetShipSpot  (IN  requestor  :  TransOb j ; 

OUT  available  :  BOOLEAN) ; 

VAR 

controller  :  SpotMsmObj; 

BEGIN 

controller  requestor. destination.airboss; 

GetSpot  (requestor,  controller,  available) ; 

END  PROCEDURE  {  GetLZSpot  }; 


PROCEDURE  GetLZSpot  (IN  requestor  :  TrcmsObj ; 

OUT  available  :  B(XDLEAN) ; 

VAR 

controller  :  SpotMamObj; 

BEGIN 

controller  :=  reqaestor.serialonboard.destination.fac; 
GetSpot  (requestor,  controller,  available) ; 
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END  PROCEDURE  {  GetLZSpot  }; 


PROCEDURE  GetSpot  (IN  requestor  :  TransObj; 

IN  controller  :  SpotManObj ; 

OUT  available  :  BOOLEAN) ; 

VAR 

checkspot  t  SpotObj ; 
i  :  INTEGER; 

BEGIN 

i  1; 

avail2Lble  FALSE; 

checkspot  ASK  controller .spotsavail  First (); 

REPEAT 

IF  { (checkspot .open)  AND  (  checkspot .spots ize  >- 
requestor. spotsizereqd) ) 
available  TRUE; 

ASK  checkspot  TO  Allocate (requestor. name, 
requestor. sidenumber) ; 

ELSE 

Checkspot  :•  ASK  controller. spotsavail 
Next (checkspot) ; 

END  IP; 

INC  (i); 

UNTIL  ((i  ;>  ASK  controller . spotsavail  numberin)  OR 

(available) ) ; 

IF  NOT  available 

ASK  controller. starboardD  TO  Add  (requestor) ; 

END  IF; 

END  PROCEDURE  (  GetSpot  }; 


PROCEDURE  GiveBackShipSpot  (IN  requestor 


VAR 

spot 

l.uidacft 
l-ionchacf  t 
waiting 
controller 

i»  j 

launchone 

landone 


SpotObj ; 
TransObj ; 
TransObj ; 
INTEGER; 
SpotManObj ; 
INPEGBR; 
BOOLEAN; 
BOOLEAN; 


TransObj ) ; 
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BEGIN 

controller  :»  requestor.destination.airboss; 

FindSpot (requestor,  controller,  spot); 
launchone  : ■  FALSE ; 

Icuidone  FALSE; 

ASK  spot  TO  DeAllocate; 

IF  (ASK  cont roller. a%^itinglaunch  numberln  >»  1) 
launchacft  ASK  controller .await inglaunch 
First ( ) ; 

i  1; 

REPEAT 

IF  (spot .spotsize  >-  launchacft. spotsizeregd) 
launchone  :■  TRUE; 

TELL  laiinchacft  TO  Spot; 

ASK  spot  TO  Allocate  (launchacft .ncune, 
launchft.sidenxjnber)  ; 

EXIT; 

END  IF; 

INC  (i); 

launchacft  ASK  controller .awaitinglaunch 
Next (launchacft) ; 

UNTIL  ( (i  >  ASK  controller,  await  inglaunch  numberln) 
OR  (launchone) ) ; 

END  IF; 

IF  launchone 

ASK  controller. await inglaunch  TO 
RemoveThis (launchacft) ; 

END  IF; 

IF  ((ASK  controller. starboardD  numberln  >■  1)  AND 
(  NOT  launchone) ) 

lamdacft  ASK  controller . starboardD  First (); 
j  1; 

REPEAT 

IF (spot .spotsize  >-  landacft .spotsizereqd) 
landone  TRUE; 

IF  (NOT  landacft .shutdown) 

TELL  landacft  TO  Load; 

END  IF; 

ASK  Spot  TO  Allocate  (Icuidacft .name, 
landacft. sidenumber) ; 

EXIT; 

END  IP; 

INC  (j) ; 

landacft  ;«  ASK  controller .StarboardD 
Next (landacft) ; 
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UNTIL  { ( j  >  ASK  controller. starboardD  numberln)  OR 
(landone) ) ; 

END  IF; 

IF  landone 

ASK  controller. StarboardD  TO 
RemoveThis (landacf t) ; 

END  IF; 

IF  ( (NOT  launchone)  AND  (NOT  landone) ) 

ASK  spot  TO  DeAl locate; 

END  IP; 

END  PROCEDURE  {  GiveBackSpot  }; 


PROCEDURE  GiveBackLZSpot  (IN  requestor  :  TranaObj); 


VAR 

Spot 

landacft 

laiinchacft 

waiting 

controller 


SpotOb j ; 
TrsmsOb  j ; 
TrauisObj ; 
INTEGER; 
SpotManObj ; 


BEGIN 

controller  :«  requestor. serial onboard. destination. fac; 
FindSpot (requestor,  controller,  spot); 


ASK  spot  TO  DeAllocate; 

IF  (ASK  controller .await Inglaunch  numberln  >-  l) 
launchacft  ASK  controller. await inglaunch 
Remove  ( ) ; 

TELL  launchacft  TO  Spot; 

ASK  spot  TO  Allocate  (launchacft .name, 
launchacft  .sidenvunber) ; 


ELSIF  (ASK  controller. StarboardD  numberln  >•  l) 
landacft  :•  ASK  controller .  starboardD  Remove  0; 
TELL  landacft  TO  Unload; 

ASK  spot  TO  Allocate  (landacft .name, 
landacf t.sidenumber) ; 


ELSE 

ASK  Spot  TO  DeAllocate; 
END  IF; 
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END  PROCEDURE  {  GiveBackSpot  }; 


PROCEDURE  FindSpot  (IN  requestor  :  TremsOb j ; 

IN  controller  :  SpotManObj ; 

OUT  spot  :  SpotOb j ) ; 

VAR 

thisspot  :  BOOLEAN; 

checkspot  :  SpotObj; 

i  :  INTEGER; 

BEGIN 

i  1; 

thisspot  : -  FALSE ; 

checkspot  :«  ASK  controller. spotsavail  First (); 
REPEAT 

IF  ( (checkspot .acftonspot  «  requestor. name)  AND 
(checkspot  .acftsidenum  -  requestor,  sidenumber) ) 
thisspot  ;=  TRUE; 
spot  ; -  checkspot ; 

ELSE 

checkspot  ASK  controller. spotoavail 
Next ( checkspot ) ; 

END  IF; 

INC  (i); 

UNTIL  ((i  >  ASK  controller. spotsavall  numberin)  OR 
(thisspot) ) ; 

IF  ((NOT  thisspot)  AND  (showerrors) ) 

ASK  TraceStream  TO  WriteString 
("NO  MATCH  FOUND  IN  FindSpot****"); 

END  IF; 

END  PROCEDURE  {  FindSpot  }; 


END  {  IMPLOONTATIOir  }  MODULE  {  SpotProoedures  }. 


OEFZHXTIOM  MODULE  Statlstiosf 

{ . 

MODULE  NAME:  Statistics 

AUTHOR:  S.  E.  Shaw 

Capt  USMC 


DATE  WRITTEN:  18  Mar  92 

LAST  MODIFIED:  5  Jun  92 
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DESCRIPTION  :  The  procedures  used  to  initialize,  reset  and 
collect  the  final  data. 

} 


FRC»1  StatMod  IMPORT  RStatObj ; 
PRC»1  ListMod  IMPORT  QueueList; 
FROM  CATFMod  IMPORT  CATFOb j ; 


VAR 

las tdel ivery t ime 

lastdeliverytimestats 

vehiclestatlist 

shipspotstatlist 

Izspotstatlist 

before  jviztp 


LMONITORED  REAL  BY  RStatObj; 
RStatObj ; 

QueueList; 

QueueList; 

QueueList; 

REAL; 


TYPE 


vehiclestatrec  -  RECORD 


name 

STRING; 

sorties 

:  INTEGER; 

sidenum 

INTEGER; 

cargo 

:  REAL; 

mother 

STRING; 

pax 

:  REAL; 

totaltime 

REAL; 

reps 

:  INTEGER; 

holding 

REAL; 

shiphold 

REAL; 

beachhold 

REAL; 

END  RECORD; 

spotstatrec  «  RECORD 

name 

:  STRING; 

landings 

;  INTEGER; 

nximber 

:  INTEGER; 

reps 

:  INTEGER; 

totaltime 

:  REAL; 

inuse 

:  REAL; 

END  RECORD; 

StatisticsObj  -  OBJECT; 

ASK  METHOD  StartStats; 

ASK  METHOD  Reset Stats; 

ASK  METHOD  StopStatS; 

ASK  METHOD  CollectRepStats  (IN  CATP  :  CATPObj); 


END  OBJECT  {  StatisticsObj  }; 


PROCEDURE  CollectVehicleStatsdN  CATP  :  CATPObj); 
PROCEDURE  CollectShipSpctStats  (IN  CATP  :  CATPObj); 
PROCEDURE  CollectLZ£pot£tatS  (IN  CATP  :  CATPObj); 
PROCEDURE  FindVehicleRec  (IN  name  :  STRING; 

IN  side  :  INTEGER; 

IN  mother  ;  STRING; 

OUT  record  t  vehiclestatrec) ; 
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PROCEDURE  FindSpOtRec  (IN  name  :  STRING; 

IN  side  :  INTEGER; 

IN  list  :  QueueLisC; 

OUT  record  :  spotstatrec) ; 


PROCEDURE  CompileStats; 

END  {  DEFINITION  }  MODULE  {  Statistics  }. 


IMPLBMENTATIC»  MODULE  Statistics | 

{ . 

MODULE  NAME:  Statistics  DATE  WRITTEN:  18  Mar  92 

AUTHOR:  S.  B.  Shaw  LAST  MODIFIED: 

Capt  USMC 

DESCRIPTION  :  The  procedures  used  to  initialize,  reset  and 
collect  the  final  data. 

. . } 


FRCM  StatMoa  IMPORT  RStatObj ; 

FRC»1  OutputDriver  IMPORT  StatsRecorder,  LZrecorder; 
PROM  CATFMod  IMPORT  CATPObj ; 

FRCM  AR®tod  IMPORT  ARGOb  j  ; 

FROM  Transport  IMPORT  TransOb j ; 

FRC»1  SpOtObject  IMPORT  SpOtOb j  ; 

FRC»4  Grjrfiod  IMPORT  QueueObj ; 

PRC»I  SimMod  IMPORT  SinfTime; 

FROM  LZBeach  IMPORT  LZBeachOb j ; 

FROM  ListMod  IMPORT  QueueList; 

OBJECT  StatisticsObj ; 


ASK  METHOD  StartStatS; 

BEGIN 

NEW  ( las tdeliverytimes tats) ; 

ADDMONITOR  (lastdelivezytime,  lastdeliverytimestats) ; 
NEW  (vehiclestatlist) ; 

NEW  (shipspotstatlist) ; 

NEW  (Izspotstaclist) ; 

E?JD  METHOD  {  StartStaCs  }; 


ASK  METHOD  ResetStatS; 

BEGIN 

ASA  LZrecorder  TO  WriteString  ("-1  -1  -1  -l  -1  -1); 
ASK  LZrecorder  TO  WriteLn; 
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beforejiio^  :«■  0.0; 

END  METHOD  {  ResetStatS  }; 


ASK  METHOD  StopStaCS; 

BEGIN 

ASK  StatsRecorder  TO  WriteString 

( ■lastdeliverytime. coxmt  :■  ^+lNTTOSTR 
(laatdeliverytimestats. Count) ) ; 

ASK  StatsRecorder  TO  WriteLn; 

ASK  StatsRecorder  TO  WriteString 

(" lastdeliverytime. meem  :•  ■<fREALTOSTR 
(lastdeliverytimestats.MeamO  ) ) ; 

ASK  StatsRecorder  TO  WriteLn; 

ASK  StatsRecorder  TO  WriteString 

( "lastdeliverytime. maximum  :«  "-kREALTOSTR 
(laatdeliverytimestats. Maximum) ) ; 

ASK  StatsRecorder  TO  WriteLn; 

ASK  StatsRecorder  TO  WriteString 

( ■lastdeliverytime. minimun  ■+REALTOSTR 

(las tdeliverytimestats. Minimum) ) ; 

ASK  StatsRecorder  TO  WriteLn; 

ASK  StatsRecorder  TO  WriteString 

("lastdeliverytiihe. variance  ■+RBALTOSTR 

(lastdeliverytimestats. Variance  0 ) ) ; 

ASK  StatsRecorder  TO  WriteLn; 

Con^ileStats; 

END  METHOD  {  StOpStatS  }; 


i 


ASK  METHOD  CollectRepStats  (IN  CATF  :  CATPObj); 
BEGIN 

CollectVehicleStats  (CAT?) ; 
CollectShipSpotStats  (CATF) ; 
CollectLZSpotStats  (CATF) ; 

OUTPUT ( "Collected  rep  stats"); 

END  METHOD  {  CollectRepStats  }; 


/ 


END  OBJECT  {  StatisticsObj  }; 
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I 


/ 


PROCEDURE  CollectVehicleStats (IN  CATF  :  GATFObj); 

VAR 

acf  t  :  TreUisObj  ; 

ship  :  ARGOb j ; 

record  :  vehlclestatrec; 

BEGIN 

Ship  :■  ASK  CATP.shiplist  First (); 

IF  (Ship  <>  NILOBJ) 

REPEAT 

acfC  :•  ASK  ship . squadron  First (); 

IF  (acft  <>  NILOBJ) 

FEPBAT 

FindVehicleRec (acft. name , 
ac  £  t .  8  idenuinbe  r , 
acf t.mymother .name,  record) ; 
INC  ( record . reps ) ; 
record. total time  record. total time 

-I-  (acft .shutdowntime  - 
acft  .airbometime)  ; 
record. holding  recoird . holding  + 

acft .  holdingtlmestats .  Sum; 
record. shiphold  :■  record . shiphold  + 
acft . holdlngshipstats . Sum; 
record. beachhold  :«  record . beachhold 
■••acft .  holdingbeachstats .  Sum; 
record. cargo  record. cargo  + 
acft . totalcargo; 
record. pax  record. pax  + 
acft  .totalpeuc; 

record. sorties  record. sorties  ■•■ 

acft . totalsort les ; 
acft  ASK  ship,  squadron  Next  (acft) ; 
UNTIL  (  acft  -  NILOBJ) ; 

END  IF; 

ship  ASK  CATF.shlplist  Next (ship); 

UNTIL  (ship  -  NILOBJ) ; 

END  IF; 

END  PROCEDURE  {  CollectVehicleStats  }; 


PROCEDURE  FindVehicleRec  (IN  name  :  STRING; 
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IN  side  :  INTEGER; 

IN  mother  :  STRING; 

OUT  record  ;  vehiclestatrec) ; 

VAR 

checkthis  :  vehiclestatrec; 
found  :  BOOLEAN; 

BEGIN 

found  FALSE; 

checkthis  :•=  ASK  vehiclestatlist  First (); 

IF  (checkthis  <>  NILREC) ; 

REPEAT 

IF  ( (checkthis. neune  «  name)  AND 

(checkthis. sidenum  =  side)  AND 
(checkthis. mother  -  mother)) 

record  :«  checkthis; 
found  :»  TRUE; 

ELSE 

checkthis  ASK  vehiclestatlist 
Next (checkthis) ; 

END  IF; 

UNTIL  ((checkthis  -  NILREC)  OR  (found)); 

ELSE 

OUTPUT  ("Error  in  PindVehicleRec") ; 

HALT; 

END  IF; 

END  PROCEDURE  {  PindVehicleRec  }; 


PROCEDURE  CorrpileStats; 

VAR 

record  ;  vehiclestatrec; 
spot record  :  spotstatrec; 
statl,  stat2,  stat3  :  REAL; 

BEGIN 

ASK  StatsRecorder  TO  HriteLn; 

ASK  StatsRecorder  TO  WriteString 

{" . Vehicle  Holding  Stats* - . "); 

ASK  StatsRecorder  TO  WriteLn; 

ASK  StatsRecorder  TO  HriteLn; 
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ASK  StatsRecorder  TO  WriteString 

( ”  Ship  Vehicle  TocalHold%  Shiphold% 
BeachHold% ■ ) ; 

ASK  StatsRecorder  TO  WriteLn; 

ASK  StatsRecorder  TO  WriteLn; 

record  ASK  vehicles tat list  First (}; 

IP  (record  <>  NILRBC) 

REPEAT 

ASK  StatsRecorder  TO  WriteString 

( record. mother +■  "+record.name+"  "+ 

HJTTOSTR  ( record .  sidenum) 

+  ■  ■ 

+ INTTOSTR ( TRUNC ( 1 0 0 . 0 * 

(record. holding/ record. total time) ) ) 

+  ■  " 

+ INTTOSTR ( TRUNC ( 1 0 0 . 0 * 

(record. shiphold/ record. total time) ) ) 

+  ■  " 

+ INTTOSTR ( TRUNC ( 1 0 0 . 0 * 

( record. beachhold/record. total time) ) ) ) ; 
ASK  StatsRecorder  TO  WriteLn; 
record  :»  ASK  vehiclestatlist  Next (record) ; 
UNTIL  (record  -  NILRBC) ; 

ELSE 

OUTPUT ('NO  VEHICLE  RECORDS  TO  COMPILE*); 

END  IP; 

ASK  StatsRecorder  TO  WriteLn; 

ASK  StatsRecorder  TO  WriteString 

(" . Vehicle  Sortie  Stats — 

ASK  StatsRecorder  TO  WriteLn; 

ASK  StatsRecorder  TO  WriteLn; 

ASK  StatsRecorder  TO  WriteString 

( ■  Ship  Vehicle  Cargo  Pax 
ASK  StatsRecorder  TO  WriteLn; 

ASK  StatsRecorder  TO  WriteLn; 

record  :«  ASK  vehiclestatlist  First (); 

IP  (record  <>  NILREC) 

REPEAT 

ASK  StatsRecorder  TO  WriteString 

( record. mother ■+record.name+"  "+ 
INTTOSTR  ( record,  sidenum) 


. ■); 

Sorties  ■ ) ; 
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+  "  •+INrrOSTR{TRDNC 

( record • cargo/FLOAT ( record . reps ) ) ) 

+ •  " + INTTOSTR (TRUNC 

{ record . pax/PLOAT ( record . reps ) ) ) 

+ "  " 

+INTTOSTR (record. sorties  DIV 
record. reps) ) ; 

ASK  StatsRecorder  TO  WriteLn; 
record  :«  ASK  vehiclestatlist  Next (record) ; 
UNTIL  (record  «  NILREC) ; 

ELSE 

OUTPUT ("NO  VEHICLE  RECORDS  TO  COMPILE"); 

END  IF; 

ASK  StatsRecorder  TO  WriteLn; 

ASK  StatsRecorder  TO  WriteString 

(■ . Ship  Spot  Stats . 

ASK  StatsRecorder  TO  WriteLn; 

ASK  StatsRecorder  TO  WriteLn; 

ASK  StatsRecorder  TO  WriteString 
("  Ship  Spot  Utilized% 

ASK  StatsRecorder  TO  Writelaa; 

ASK  StatsRecorder  TO  WriteLn; 

spotrecord  :«  ASK  shipspotstatlist  First  0; 

IF  (spotrecord  <>  NILREC) 

REPEAT 

ASK  StatsRecorder  TO  WriteString 

( spot record. name +"  ■+ INTTOSTR 

( spotrecord .  n\jinber ) 

+  "  ■ 

+IHTTOSTR (TRUNC (100.0* (spotrecord. inuse 
/spotrecord. totaltime) ) ) 

+  ■  • 

+INTTOSTR (spotrecord. lamdings 
DIV  spotrecord. reps) ) ; 

ASK  StatsRecorder  TO  NriteLn; 
spotrecord  :«  ASK  shipspotstatlist 
Next (spotrecord) ; 

UNTIL  (spotrecord  •  NILREC) ; 

ELSE 

OUTPUT ("NO  SHIPSPOT  RECORDS  TO  COMPILE"); 

END  IP; 


")  ; 

Landings  ”) ; 
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")  ; 


Landings  *)  ; 


spotrecord  ASK  Izspotstatlist  EirstO; 

IF  (spotrecord  <>  NILSBC) 

REPEAT 

ASK  StatsRecorder  TO  writeStrlng 

( spotrecord.  name-f”  ■+INTTOSTR 

(spot  record .  nusaber) 

♦  •  ■+INTTOSTR(TRONC 

(100.0* (spotrecord. inuse 
/spotrecord. totaltine) ) ) 

+■  ■+INTTOSTR 

(  a p o t r e c o r d .  1  a n d  i  n g 8  DIV 
spotrecord . reps } } ; 

ASK  StatsRecorder  TO  WriteLn; 

spotrecord  :•  ASK  Izspotstatlist 
Next (spotrecord) ; 

UNTIL  (spotrecord  -  NILRBC) ; 

ELSE 

OUTPUT  ("NO  LZBBACH  SPOT  RECORDS  TO  CX3MPILB*)  ; 

END  IF; 

END  PROCEDURE  {  CoopileStats  }; 


ASK  StatsRecorder  TO  WriteLn; 

ASK  StatsRecorder  TO  WriteString 

(■ - LZBeach  Spot  Stats- - 

ASK  StatsRecorder  TO  WriteLn; 

ASK  StatsRecorder  TO  WritelA; 

ASK  StatsRecorder  TO  WriteString 
(■LZBeach  Spot  Utilized 
ASK  StatsRecorder  TO  WriteLn; 

ASK  StatsRecorder  TO  WriteLn; 


PROCEDURE  CollectShipSpotStats  (IN  CATF  :  CATFObj); 
VAR 


spot 

ship 

record 

spotsavail 


SpotObj ; 
ARGOb j ; 
spotstatrec; 
QueueOb j ; 


BEGIN 

ship  ASK  CATF.shiplist  FirstO; 
IF  (ship  <>  NILOBJ) 
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REPEAT 


spotsavail  :■  shlp.airboss.spotsavail; 
spot  ; «  ASK  spotsavail  First ( ) ; 

IP  (spot  <>  NILOBJ) 

REPEAT 

FindSpo  t  Rec  ( ship .  natnc* , 
spot . spotnumber , 
shipspots tat list,  record) ; 

INC  ( record . reps ) ; 

record. total tiro  record. total time 

+  lastdollverytine; 

record. inuse  :»  record. inuse  + 

spot .  allocatedtimestats .  Siim; 

record,  landings  :•  record,  landings 

spot .  landings ; 

spot  :»  ASK  spotsavail  Next  (spot); 

UNTIL  (  spot  -  NILOBJ)  ; 

END  IP; 

Ship  :»  ASK  CATF.shiplist  Next (ship); ‘ 

UNTIL  (Ship  -  NILOBJ)  ; 

END  IF; 

END  PROCEDURE  {  CollectShipSpotStats  } ; 


1 


PROCEDURE  PindSpotRec  (IN  name  :  STRING; 

IN  side  :  INTEGER; 

IN  list  :  QueueList; 

OUT  record  ;  spotstatrec) ; 

VAR 

checlcthis  :  spotstatrec; 
found  :  BOOLEAN; 

BEGIN 

found  FALSE; 

checkthis  :»  ASK  list  First (); 

IP  (checkthis  <>  NILREC) ; 
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REPEAT 

IF  ( (checkthis.iuuae  ■  name)  AND 
(checkthls.mindaer  «  side)) 

record  :•  checJcthis; 
found  :*  TRUE; 

ELSE 

checkthis  :•  ASK  list  Next  (clieckthis) ; 
END  IF; 

UNTIL  ( (oheckthis  -  NILRBC)  OR  (found) )  ; 
else 

OUTPUT  (■Error  in  FindShipSpotRec”) ; 

HALT; 

END  IF; 

END  PROCEDURE  {  FindSpotRec  }; 


PROCEDURE  CollectLZSpotStatS  (IN  CATP  i  CATFtMsj); 
VAR 


Spot<»)j; 
LZBeacOiObj; 
spotstatrec; 
QueueObj ; 


spot 
Iz 

record 
spotsavail 
BEGIN 

Iz  :•  ASK  CATP.lzbeachlist  FirstO; 


IF  (Iz  <>  NILOBJ) 


REPEAT 

spotsavail  :•  Iz.fac. spotsavail; 
spot  ASK  spotsavail  FirstO; 


IP  (spot  <>  NILOBJ) 


REPEAT 

FindSpotRec 

( 1 z . nane , spot . spotnunber , 
Izspotstatlist,  record) ; 

INC  (record. r^ps) ; 
record. totaltine 

record. totaltine 
+  iastdeliverytiae; 
record,  iouse  :•  record,  inuse 
spot . allocatedt inestats . Sum; 
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record . landings  ; « 

record.  Icmdings  + 
spot . landings ; 
spot  ASK  spotsavail 
Next (spot) ; 

UNTIL  (  spot  =  NILOBJ) ; 

END  IF; 

Iz  :»  ASK  CATF. Iz-'eachlist  Next(lz); 
UNTIL  (Iz  «  NILOBJ): 

END  IF; 

END  PROCEDURE  {  CollectLZSpotStatS  } ; 

END  {  IMPLEMENTATION  )  MOOULS  {  Statistics  }. 


DEFINITION  MODULE  Transport; 

{ 

MODULE  NAME:  TransportCraf t  DATE  WRITTEN:  18  Mar  92 

AUTHOR:  S.  E.  Shaw  LAST  MODIFIED: 

Capt  USMC  MODIFIED  BY: 

DESCRIPTION  :  Defines  the  objects  used  to  aiove  pax  and 
cargo  ashore.  :.*n  be  used  for  either  surface  craft  (LCAC,  LCU, 
etc)  or  aircraft. 

} 

FROM  ARGMod  IMPORT  ARGOb j ; 

FROM  LZBeach  IMPORT  LZBeachObj ; 

FROM  SerialMod  IMPORT  SerialObj; 

FROM  hDCMod  IMPORT  HDCOb j ; 

FROM  global  IMPORT  LocationXY; 

FROM  RGlobals  IMPORT  SHierRecType; 

FROM  StatMod  IMPORT  RStatObj ; 

EXPORTTYPE 

TransObj  »  OBJECT;  FORWARD; 

TYPE 

TransObj  -  OBJECT 


name  : 

STRING; 

location  :  LocationXY 

sidenumber 

INTEGER; 

launch time 

REAL; 

totalpax 

REAL; 

totalcargo 

REAL; 

cotalsorties 

INTEGER; 

spreadupper 

REAL; 

mymother 

ARGOb j ; 

spreadlowsr 

REAL; 

maxfuel 

REAL; 

totalfuel 

REAL; 

emptyspeed 

REAL; 

myhdc 

HDCObj ; 
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loadedspeed 

:  REAL; 

emptybumrate  ; 

REAL; 

loadedbumrate  :  REAL; 

destination 

:  ARGObj 

serial onboard 

:  SerialObj 

;  foldlower 

:  REAL; 

• 

fuelonboard 

:  REAL; 

foldupper 

:  REAL; 

ac ft range 

:  REAL; 

groundbumrate 

:  REAL; 

crewday 

:  REAL; 

shut downtime 

:  REAL; 

serialnum 

:  INTEGER; 

cleared  : 

BOOLEAN 

minfuel 

:  REAL; 

holding 

:  REAL; 

external time 

:  REAL; 

paxtime 

:  REAL; 

cargotime 

:  REAL; 

spotsreqd  : 

INTEGER 

spotsizereqd 

:  INTEGER; 

shutdown  : 

BOOLEAN 

maixloadsize 

:  INTEGER; 

numserials  : 

INTEGER 

airbometime 

:  REAL; 

totalholding 

;  REAL; 

holdingtime  : 

LMONITORED 

REAL  BY  RStatObj; 

holdingtimeatats  :  RStatObj; 

holdingship  :  LMONITORED  REAL  BY  RStatObj; 
holdingshipstats  :  RStatObj ; 

holdingbeach  :  LMONITORED  REAL  BY  RStatObj; 
holdingbeachstats  :  RStatObj ; 

ASK  METHOD  Objinit; 

ASK  METHOD  ReadData  (IN  record  :  SHierRecType) ; 

ASK  METHOD  NewHDC  (IN  newHDC  :  HDCOb j ) ; 

ASK  METHOD  SetSide  (IN  side  ;  INTEGER) ; 

ASK  METHOD  AssignMother  (IN  mother  :  AR(30bj); 

ASK  METHOD  UsePuel  (IN  amoiint  :  REAL)  ; 

ASK  METHOD  TakeOnPuel; 

ASK  METHOD  SetLauachTlme  (IN  time  :  REAL); 

ASK  METHOD  DestroyVehicle; 

TELL  METHOD  Load; 

TELL  METHOD  Operate; 

TELL  METHOD  GetClearance  ; 

TELL  METHOD  Trans itToBeach; 

TELL  METHOD  FlyToShip; 

TELL  METHOD  Reposition  (IN  newserial  :  SerialObj ) ; 
TELL  METHOD  RetumToBase; 

TELL  METHOD  Unload; 

TELL  METHOD  Spot; 

TELL  METHOD  ShutDovm; 

END  OBJECT  {  Trans Po rtObj } ; 

END  {DEFINITION}  MODULE  { Transporter a f tNod} . 


IMPLEMENTATION  MODULE  Transport; 
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MODULE  NAME;  TransportCraf t  DATE  WRITTEN:  10  Mar  92 

AUTHOR:  S.  E.  Shaw  LAST  MODIFIED; 

Capt  USMC  MODIFIED  BY; 

DESCRIPTION  ;  Defines  the  objects  used  to  move  pax  and 
cargo  ashore.  Can  be  used  for  either  surface  craft  (LCAC,  LCU, 
etc)  or  aircraft. 

. } 


FROM  SimMod  IMPORT  SimTime; 

FROM  ARGMod  IMPORT  ARGOb j ; 

FROM  HDCMod  IMPORT  HDCObJ , Brief ingRec ; 

FROM  SerialMod  IMPORT  SerialObj ; 

FROM  global  IMPORT  LocationXY,  Distance,  moreserials, 
SpreadStream,  FoldStream; 

PROM  FuelGuage  IMPORT  BumFuel,  CheckGas,  Getfuel; 
FROM  RGlobals  IMPORT  SHierRecType; 

FROM  Spot Procedures  IMPORT  GetShipSpot,  GetLZSpot, 

GiveBackShipSpot ,  GiveBackLZSpot ,  InitialLavmch; 
FROM  LoadProcedures  IMPORT  LoadCargo,  UnLoadCargo; 
FROM  Debug  IMPORT  TraceStream; 

OBJECT  TransCbj ; 


ASK  METHOD  ObjInit; 

BEGIN 

NEW  (holdingtimestats) ; 

ADDMONITOR  (holdingtime,  holdingtimestats) ; 
NEW  (holdingshipstats) ; 

ADDMONITOR  (holdingship,  holdingshipstats) ; 
NEW  (holdingbeachstats) ; 

ADDMONITOR  (holdingbeach,  holdingbeachstats) ; 
END  METHOD  {  ObjInit  }; 


ASK  METHOD  ReadData  (IN  record  :  SHierRecType) ; 

BEGIN 

name  record. Topstring; 

maxfuel  STRTOREAL ( record. OwnedString (l] ) ; 

minfuel  STRTOREAL (record. OwnedString [2] ) ; 

emptyspeed  ; -  STRTOREAL ( record . OwnedString [ 3 ] ) ; 
loadedspeed  ;-  STRTOREAL(record.OwnedString(4] ) ; 
loadedbumrate  STRTOREAL  (record. OwnedString  [5] ) ; 

emptyburnrate  :■  STRTOREAL (record. OwnedString [6] ) ; 
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groundburnrate  STRTOREAL (record. OwnedSt ring [7] ) ; 

foldlower  STRTOREAL (record. OvmedString (8] ) ; 

foldupper  :»  STRTOREAL (record. OvmedString [9] ) ; 
spreadlower  :«  STRTOREAL (record. OvmedString [10] ) ; 
spreadupper  STRTOREAL (record. OvmedString [11] ) ; 
acftrange  STRTOREAL (record. OvmedString [12] ) ; 

crewday  : =  STRTOREAL ( record . OvmedString [ 13 ] ) ; 
extemaltime  STRTOREAL  (record. OvmedString  [14] )  ; 
paxtime  STRTOREAL (record.OvmedString [15] ) ; 
cargotime  :=  STRTOREAL (record.OvmedString [16] ) ; 
spotsreqd  STRTOINT (record. OvmedString [17] ) ; 

spotsizereqd  :=  STRTOINT (record.OvmedString [18] ) ; 
maxloadsize  :»  STRTOINT (record.OvmedString [19] ) ; 

fuelonboard  :■  maxfuel; 
serialnum  :o  en¬ 
deared  :»  TRUE; 
crevfday  :«  crewday  *  60.0; 

END  METHOD  {  ReadData  }; 


TELL  METHOD  Spot; 
VAR 

ship 

startpoint 

endpoint 

gonogo 

newserial 

available 

othership 

loadtime 

briefing 

combined 


STRING; 

LocationXY; 

LocationXY; 

REAL; 

SerialObj ; 
BOOLEAN; 
BOOLEAN ; 
REAL; 

BriefingRec; 
BOOLEAN ; 


BEGIN 

destination  mymother; 
ship  :■  mymother . name ; 

ASK  myhdc  TO  GiveFirstLoad  (ship,  maxloadsize, 

newserial, othership) ; 

serialonboard  :■  newserial; 
numserials  :>  i; 


IF  ( (serialonboard. minliftsize  -  l)  AND 
(maxloadsize  >1)) 

NEW (briefing) ; 

briefing. serial  serialonboard. serialnum; 

brief ing.dest  NILOBJ; 

briefing. Iz  :■  serialonboard. destination; 
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briefing. loadsize  :«  serlalonboard.mlnllftslze; 
ASK  myhdc  TO  CcsnblneLoads  (briefing,  combined) ; 

IF  (ccanbined) 

nutnserials  :>  2; 

END  IF; 

END  IF; 

WAIT  DURATION  (ASK  SpreadStream  UniformReal 
(spreadlower,  spreadupper) ) ; 

END  WAIT;  {spread  acft  wait} 

IF  othership 

TELL  SELF  TO  Reposition  (newserial) ; 

TERMINATE; 

ELSE 

ASK  myhdc.  seriallist  TO  RemoveThls  (serialonboard) ; 
END  IF; 

startpoint  mymother .location; 
endpoint  :«  newserial. destination. location; 
gonogo  :«  Distance  (startpoint,  endpoint) ; 

WAIT  DURATION  loadtime 

END  WAIT;  (  load  serial  wait  } 

BumFuel  (SELF,  loadtime,  0.0,  0.0); 
airbometime  :  -  Simrime  ( ) ; 

TELL  SELF  TO  Trans it ToBeach; 

END  METHOD  {  Spot  }  ; 


TELL  METHOD  Reposition  (IN  newserial  :  SerlalObj); 
BEGIN 

GiveBaclcShipSpot  (SELF) ; 
destination  newserial. source; 
serialnum  :•  newserial .  serialntun; 
airboznetime  :«  SimTimeO; 

TELL  SELF  TO  FlyToShip; 

END  METHOD  {  Reposition  }; 


TELL  METHOD  RetumToBase; 
BEGIN 

GiveBac)cShlpSpot  (SELF) ; 
destination  :>  mymother; 
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WAIT  FOR  SELF  TO  FlyToShip; 
miD  MATT; 

END  METHOD  {  ReturnToBase  }; 


TELL  METHOD  Load; 

VAR 

loadtlme  :  REAL; 
uewload  :  SerlalObj; 


BEGIN 

holdingtime  SlitfrimeO  -  holding; 
holdingship  :«  SltnTineO  ~  holding; 
BurnPuel  (SELF,  0.0,  holdingtime, 

awaiting 

IP  (serialnum  >  -1) 


0.0) ;  {fuel  used 
deckspot } 


ASK  D^hdc  TO  GiveLoad  (serialnum,  newload)  ; 
serialonboard  :•  newload; 

IP  (serialonboard  <>  NILOBJ) 

LoadCargo  (SELF,  loadtime) ; 

WAIT  DURATION  loadtime 
END  WAIT;  {  load  serial  wait  } 
totalpax  :«  serial  onboard,  pax  totalpax; 

total cargo  :>  serialonboard. cargo 
+  totalcargo; 

BumFuel  (SBLP,loadtiroe,  0.0,  0.0); 

END  IF; 


END  IF; 


TELL  SELF  TO  Trans itToBeach; 
END  METHOD  {  Load  }; 


ASK  METHOD  SetSide  (IN  side  :  INTEGER)  ; 
BEGIN 

sidenumber  :•  side; 

END  METHOD  {  SetSide  }; 


ASK  METHOD  AssignMother  (IN  mother  :  ARGObj); 
BEGIN 

mymother  :>  mother; 
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END  METHOD  {  AsaigsMother  }; 


TELL  METHOD  Operate; 

VAR 

available  :  BOOLEAN; 

BEGIN 

WAIT  DURATION  lau&chtiste; 

END  WAIT; 

InitialLaunch  (SELF,  available) ; 

IF  (available) 

TELL  SELF  TO  Spot; 

END  IP; 

END  METHOD  {  Operate  }; 


ASK  METHOD  NewHDC  (IN  SDC  :  HDCOb j )  ; 
BEGIN 

myhdc  :«  HDC; 

END  METHOD  {  SetHDC  }; 


ASK  METHOD  SetLaimchTlne  (IN  time  : 
BEGHT 

launchtlme  time; 

END  METHOD  {  SetLaunckTlme  }; 


TELL  METHOD  Trans ItToBeach; 
VAR 


Start 

end 

leg 

fllghttlme 

available 

airspeed 


:  LocatlonXY; 
:  LocatlonXY; 
:  REAL; 

:  REAL; 

:  BOOLEAN; 

:  REAL; 


BEGIN 

WAIT  FOR  SELF  TO  GetClearance; 
END  WAIT; 


IF  (cleared) 


ASK  serialonooard . source  TO  Cur rent Pos (start .x, 

start .y) ; 

end  :«  serlalonboard. destination. location; 
leg  Distance  (start,  end) ; 

I?  (serialonboaxd.lift  -  "®CTERNAL*) 

airspeed  serlalonboard. extemalspeed; 

ELSE 

airspeed  crulsespeed; 

END  IF; 

flighttime  (leg  /  airspeed)  *  60.0; 
GiveBackShipSpot  (SELF) ; 

WAIT  DURATION  f light time; 

END  WAIT;  {  transit  time  to  shore  } 

BumFuel  (SELF,  0.0,  0.0,  flighttime); 

holding  :«  SimTimeO; 

GetLZSpot  (SELF,  available) ; 

IF  (availcible) 

TELL  SELF  TO  Onload; 

END  IF; 

ELSE 

TELL  SELF  TO  ShutDown; 

END  IP; 

END  METHOD  {  TrcUisltToBeach  }; 


TELL  METHOD  Unload; 
VAR 


briefing 

unloadtlme 

available 

combined 

assignedaload 


BrlefingRec; 
REAL; 
BOOLEAN; 
BOOLEAN ; 
BOOLEAN; 


BEGIN 

location  serlalonboard. destination. location; 
holdingtime  :«  SimTimeO  -  holding; 
holdlngbeach  ;•  SimTimeO  *  holding; 

UnLoadCargo  (SELF,  unloadtlme) ; 

INC  (totalsorties) ; 
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WAIT  DURATION  xmloadtime; 

END  WAIT;  {  unload  aerial  tiait  } 

ASK  serlalonboard. destination  TO  ReceiveLoad 

(serialonboard.pax, serialonboard. cargo, 
nuxnserials) ; 

BumFuel  (  SELF,  unloadtime,  0.0,  holdingtime) ; 

ASK  myhdc  NewDestination  (briefing,  maxloadsize, 
assignedaload) ; 

IF  ctssignedaload 

destination  :«  brief ing.dest; 
serialnuffl  briefing. serial; 
numserials  l; 

IF  ( (briefing. loadsize  ■  1)  AND  (naxloadsize  >  1) ) 
ASK  myhdc  TO  CcanbineLoads  (brief  ing,  ccmibined) ; 

IF  combined 

numserials  : -  2 ; 

END  IF; 

END  IF; 

ELSE 

destination  mymother; 
serialnum  :•>  -100; 

END  IF; 

DISPOSE  (briefing) ; 

GiveBaciOiZSpot  (SELF)  ; 

TELL  SELF  TO  FlyToShip; 

ASK  serialonboard  TO  DestroySerial ; 
serlalonboard  NILOBJ; 

END  METHOD  {  Unload  }; 


TELL  METHOD  FlyToShip; 
VAR 


Start 

end 

leg 

flight  time 
available 


LocationXY; 

LocatiorOCY; 

REAL; 

REAL; 

BOOLEAN; 
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BEGIN 

Start  location; 

ASK  destination  CurrentPos  (end.x,  end.y) ; 
leg  :•  Distamce  (start,  end); 
flighttiine  :•  (leg  /  cruisespeed)  *60.0; 

WAIT  DOTATION  flighttime; 

END  WAIT;  {  transit  time  to  ship  } 

holding  :«  SimTimeO  ; 

(^tShipSpot  (SELF,  available) ; 

IF  (availcd>le) 

IF  (NOT  shutdown) 

TELL  SELF  TO  Load; 

END  IF; 


END  IF; 

BumFuel  (SELF,  0.0,  fllghttine,  0.0); 
END  METHOD  {  FlyToShip  }; 


TELL  METHC^  ShutDown; 

BEGIN 

IF  (destination. name  <>  myiwsther.haiiie) 

WATT  FOR  SELF  TO  RetumToBase; 

END  WAIT; 

END  IF; 

WATT  DOTATION  ASK  FoldStream  UnifonDReal 

(foldlower,  foldupper) 

END  WAIT; 

shutdowntime  :•  SimTimeO; 
GiveBackShlpSpot  (SELF) ; 


END  METHOD  {  ShutDown  }; 


ASK  METHOD  UsePuel  (IN  amount  :  REAL) ; 
BEGIN 

fuelonboard  :>  amount; 
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ASK  METHOD  TakeOoFuel; 

BEGIN 

fuelonboard  maxfuel; 


END  METHOD; 


TELL  METHOD  GetClearance; 

VAR 

needfuel  :  BOOLEAN; 

duration  :  REAL; 

Transitdist  :  REAL; 

start  :  LocatlonKY; 

end  :  LocatlonKY; 

BEGIN 

cleared  FALSE; 

IF  (aerialnum  >  >1) 

^edcGas  (SELF,  needfuel) ; 

.  IP  needfuel 

Getfuel  {SELF,  duration) ; 

WAIT  DURATION  duration 
END  WAIT; 

END  IF; 

cleared  :«  TRUE; 

ASK  serial onboard. source  TO  CurrentPos  (start. 

start. 

end  serlalonboard. destination. location; 
tramsitdist  :■>  Di8t8mce( start,  end); 

IF  ( (launchtlme  crewday)  <•  (SintTimeO 
2.0*traxisitdist/60.0) ) ; 
cleared  FALSE; 
shutdown  TRUE; 

END  IF; 

END  IF; 

END  METHOD  {  GetClearance  }; 


ASK  METHOD  DestroyVebicle; 
BEGIN 
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X  >1 


serialqaboard  tm 

nn^c  :■  NIlibjBJ; 
diai^tiJXaS^dxm  HILC^;  :: 
□ISPOdS  (SBtF); 

raiD  {  DedtroyVeixi^e^4; 


^  OBJECT  {  '^cansPortC^j  }; 


BUD  {  WXJMBIITkT^  }  UBmsJi  {  Trgitti^ctttdraft  >. 
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The  simulatioa  present^  run  on  an  IBM  compatible 
peraonal  counter  under  OS/2  with  both  a  hard  disk  drive  and 
one  flopt^  drive.  For  speed  considerations,  a  fast  (204-}  S038S 
or  higher  conputer  is  recoomended.  The  presence  of  a  sSith 
ccprocessor  is  not  required,  although  the  use  of  a  coprocessor 
would  reduce  the  model  run  tiiae.  The  sixailati^  Itself  is 
written  in  MODSIM  II,  an  advanced,  (Aject-^oriented  siimila&ion 
language . 

In  the  OS/2  (ver.  1.21)  environsient,  the  modification  and 
coopllation  of  the  program  requires  the  MODSIM  II  language 
(ver.  1.6)  and  at  least  an  liffii  AT  conpatible  (803S6-»-)  c<»pater 
with  4  megabytes  of  memory  and  a  hard  dia)c  drive.  In  addition, 
the  MODSIM  II  conpiler  requires  the  Microsoft  C  compiler  (ver. 
6.0) .  MODSIM  compiles  to  the  ccoputer  lamguage  irfiirh  is 
then  coopiled  by  the  'C'  conpiler  to  the  native  format  of  the 
personal  cooputer.  This  r^rescnts  the  ninimun  configuration 
required  to  modify  and  coopile  the  model. 


APPEMDXX  C  £UamB  SBZP-TO-SBOBB  PlOQUai  XVP07  riLBS 


. - . . oi^Utt.dat 

Acft.dat 

Ship.dat 

Spot.dat 

LZBeach.dat 

Senmr22.dat 

Seed8.dat 

R34A 


niis  data  file  contains  the  names  of  the  other  it^ut  files 
as  well  as  the  desired  name  for  the  output  files.  These  ii^t 
files  may  have  any  name  that  the  user  desires,  hut  mist  appeau: 
in  the  order  given  below: 

1)  The  Aircraft  data  file  name. 

2)  The  Ship  data  file  name. 

3)  The  Spot  data  file  name. 

4)  The  Seriad.  file  name. 

5)  The  Seeds  file  name.  Always  use  'Seeds.dat',  the  user  has 
no  need  to  change  this  file. 

6)  The  name  desired  for  all  of  the  output  files.  Allows 
output  from  different  scenarios  to  he  saved. 


. - . Ship.dat . . . - . ----- 

3 

FBLBLISU  •>  LHA  15  50  20  17  15  50  500.0  H  MV22  8000000 
20  20  CH53AO  4  20  20  20  20  \\ 

NBirPORT  ->  LST  10  50  15  10  10  50  300  0  \\ 

RALIBGB  ->  LPD  23  50  18  10  23  50  200.0  \\ 

This  file  contains  ii^t  regarding  the  qperating 
characteristics  of  the  aayhlbious  ships.  There  must  be  one 
record  for  each  ship  within  the  scenario  to  be  run. 

nufflberOfShipslDAll _ The  number  of  ship  records  to  be  read. 


Shiidtane  >>  ...  Name  of  the  first  ship, 
type  . . .  The  ship  type. 


location. X 
location.y 


The  X  and  y  coordinates  of  the  ships  start 
point 


steamspeed 


The  ships  steaming  speed. 
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holdingspeed  . . .  The  ships  holding  speed. 

holdlocation.x  ...  The  x  and  y  coordinates  for  the  ships 
holdlocation.y  holding  position. 


pumprate  .  .  .  The  rate  (in  pounds  per  minute)  that  the  ship  can 
puir^)  fuel  into  the  aircraft. 

<H>  . . .  Signifies  the  beginning  of  the  transport  vehicles 
eiboard  this  ship. 

TranspcrtAcftTypel  . . .  The  type  of  the  first  transport 

aircraft.  Must  match  the  ones  contained 
in  the  Acft.dat  file. 

#TransportAcf tTypel  ...  Number  of  type  1  Treuisportcraf t . 

laiinchtimes  .  . .  Launch  times  for  each  of  the  type  1 

Transportacft  listed  in  minutes  from  time 
zero.  MUST  BE  ONE  LAUNCH  TIME  FOR  EACH  TYPE  1 
TransportAcft . 

TransportAcftType2  ...  Type  2  TransportAcft. 

launchtimes  . . .  Launch  times  for  each  of  the  type 

1  Transportacft  listed  in  minutes  from  time 
zero.  MUST  BE  ONE  LAUNCH  TIME  FOR  EACH  TYPE  2 
TransportAcf t . 

<A>  . . .  Signifies  the  start  of  the  attacic  aircraft  aboard  this 

ship. 

AtcaclcAcf tTypel  . .  .The  type  of  the  first  attack  aircraft.  Must 

match  the  ones  contained  in  the  Ac  =t.dat 
file. 

#AttackAcf tTypel  ...  Number  of  type  1  Attackacft. 

launchtimes  .  . .  Launch  times  for  each  of  the  type  1  AttackAcft 

Listed  in  minutes  from  time  zero.  MUST  BE  ONE 
LAUNCH  TIME  FOR  EACH  TYPE  1  AttackAcft. 

AttackAcftType2  ...  Type  2  AttackAcft. 

#AttackAcftType2  ...  Number  of  type  2  Attackacft. 

launchtimes  .  .  .  Launch  times  for  each  of  the  type  1  AttackAcft 

Listed  in  minutes  from  time  zero.  MUST  BE  ONE 
LAUNCH  TIME  FOR  EACH  TYPE  2  AttackAcft. 
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<  \\  >  ...  Signifies  the  end  of  this  ships  record. 

The  above  are  repeated  for  each  ship  ii}  the  scenario. 


. — . Acft.dat 

7 


CH53E 

->  11000  1200 
200  8  2.0 

147  139  2539  2218  1109  10 

2.0  3.0  132  \\ 

15 

10 

15 

CH46 

->  2400  400 

15  100  8 

132  129  1237  1146  575 

1.5  2.0  3.0  121  \\ 

10 

15 

10 

CH60 

->  2340  400 

15  100  8 

131  128  938  856  425 

1.5  2.0  3.0  121  \\ 

10 

15 

10 

CH47  - 

>  6700  1100 

100  8  1.5 

145  144  2230  1869  935  10 

2.0  3.0  132  \\ 

15 

10 

15 

(The  S'92,  MV-22  and  EH-lOl  data  is  omitted  here.  At  the  time 
that  this  thesis  was  sxjbmitted  the  information  was  proprietary 
in  nature. ) 

1  numberOfAircraftListsInAll 

2  AcftName  ->  maxfuel  mintuel  emptyspeed  loadedapeed 
loadedbumrate  emptybumrate  groundbumrate  foldlower 
foldupper  spreadlower  spreadupper  acf trange  crewday 
extemaltime  paxtime  cargotime  spotsreqd  spotsizereqd 
maxloadsize  <  \\  > 


AcftName  •>  The  name  of  the  aircraft.  Must  match  the  name 
used  in  the  Ship.dat  file. 

maxfuel  ...  The  maximum  amount  of  fuel  (in  pounds)  that  the 
aircraft  can  carry.  This  is  used  when  aircraft  refuels. 

minfuel  ...  The  NATOPS  minimum  for  fuel  (in  pounds).  Used  to 
determine  when  an  aircraft  requires  reifuellng. 

emptyspeed  . . .  The  speed  at  which  the  en^ty  aircraft  transits 
from  the  beach  to  the  ship. 

loadedspeed  . . .  The  speed  at  which  the  loaded  aircraft 
trauisits  from  the  ship  to  the  beach. 

loadedbumrate  ...  The  rate  (in  pounds  per  hour)  at  which  the 
loaded  aircraft  bums  fuel  inflight. 

eitptybumrate  .  . .  The  rate  ( in  pounds  per  hour)  at  which  the 
eir^ty  aircraft  bums  fuel  inflight. 
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groundburnrate  . . .  The  rate  (in  pounds  per  hour)  at  which  the 
aircraft  bums  fuel  while  on  the  deck. 

foldlower  . . .  Used  to  determine  how  long  it  takes  to  fold  the 

Foldupper  aircraft  during  shutdown. 

spreadlower  —  Used  to  determine  how  long  it  takes  to  spread 

spreadlower  aircraft  prior  to  launch. 

acftrange  . . .  The  round  trip  reuige  of  the  aircraft.  Any  number 
will  do  for  now,  not  used  by  this  version  of  the  model. 

crewday  . . .  The  crewday  for  the  pilots .  One  of  the  factors 
used  to  determine  the  time  for  shutting  down  the  aircraft. 

externaltime  ...  A  parameter  to  determine  the  amount  of  time 
to  hook  up  an  external  load. 

paxtime  ...  A  parameter  for  determining  the  amount  of  time  to 
load  passengers. 

cargotime  ...  A  parameter  for  determining  the  amount  of  time 

to  load  cargo. 

spotsreqd  . . .  The  number  of  landings  spots  an  aircraft 
requires.  Not  used  here,  should  be  set  to  1. 

spotsizereqd  . . .  The  spot  size  cui  aircraft  recjuires  for 
landing.  These  match  with  the  size  of  spots  contained  in 
the  Spot.dat  file.  Prevents  aircraft  from  lemding  on  spots 
that  they  are  not  allowed  on. 

mcocloadsize  . . .  The  maximum  size  load  an  aircraft  can  carry. 
For  example,  a  CH46  would  be  set  to  1  while  a  CH53  would 
get  a  2.  This  allows  for  the  combining  of  serials  to  take 
advantage  of  the  payload  capacity  if  larger  aircraft. 


Spot.dat 


7 

LHA  ->822345666  \\ 

LST  ->  1  6  \\ 

LSD  ->  1  6  \\ 

LPD  ->  2  6  6  \\ 

LPH  ->  6  1  1  4  4  6  6  \\ 

LZOWL  ->4666666  \\ 

LZSPARROW  ->3666666  \\ 

The  number  of  spots  and  the  size  of  each  spot  for  all 
an^hlbious  ships  and  each  LZ  may  be  altered  with  this  file. 
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nuznberofShips/LZslnAll  ...  Ntunber  of  spot  records  in  the  file. 

ShipLZTypel  ->  ...  The  type  of  ship,  or  the  LZ  name  of  the 

first  record.  For  ships,  this  must  match 
the  type  field  in  the  Shlp.dat  file. 

numspots  . . .  The  number  of  spots  available  on  the  ship  or  in 
the  LZ. 

SizeSpotl  .  . .  The  size  of  the  first  spot.  This  should  match  up 
with  the  spotsizereqd  field  in  the  Acft.dat 
file.  For  example,  if  a  CH53  is  given  a 
spotsizereqd  of  3,  then  it  would  only  be  allowed 
to  land  on  spots  with  a  SizeSpot  value  of  3  or 
greater. 

SizeSpot2  ....  Same  as  for  spot  1. 


SizeSpotN  ...  Size  of  the  last  spot. 

<\\>  signifies  the  end  of  the  current  spot  record. 

There  must  be  one  spot  record  for  each  Ship  type,  as  well  as 
one  spot  record  for  each  LZ.  The  total  number  of  spot  records 
must  equal  the  numberofShips/LZsinAll  value  given. 


LZBeacb.dat 


LZSPARROW  ->  23  3  \\ 

LZOWL  ->  8  3  \\ 

This  file  contains  the  attributes  for  each  landing  zone. 

numberOfLZBeacheslnAll  —  The  total  number  of  LZBeach  records 

to  be  read  in. 

LZBeachName  •>  . . .  The  name  of  the  LZ  or  Beach.  Must  match  the 

destinations  given  to  the  serials  In  the 
Serial.dat  file. 

location. X  ...  The  x  and  y  coordinates  of  the  LZ  or  Beach, 
location.y 

<  \\  >  ...  Signifies  the  end  of  the  LZ  or  Beach  record. 

Repeat  the  above  for  every  LZ  or  Beach.  The  number  of  records 
must  match  the  numberofLZBeachesInAll  value  given. 
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S«rlal.(lat 


44 

1  -> 

101 

LZOWL 

PELELIEU 

2  -> 

102 

LZOWL 

PELELIEU 

3  -> 

103 

LZOWL 

PELELIEU 

4  -  > 

104 

LZOWL 

PELELIEU 

5  -> 

105 

LZOWL 

PELELIEU 

44  ->  144  LZSPARROW  PELELIEU 


0 

15 

1 

INTERNAL 

X 

0 

w 

0 

15 

1 

INTERNAL 

1 

0 

w 

0 

15 

1 

INTERNAL 

1 

0 

w 

0 

15 

1 

INTERNAL 

1 

0 

w 

0 

15 

1 

INTERNAL 

1 

0 

W 

4000  0 

22 

EXTERNAL 

2 

80 

W 

The  data  required  to  create  the  serials  within  the  current 
scenario  is  contained  within  this  file. 

number  of  serials  . . .  The  total  number  of  serial  records  to  be 

read  in. 

record  number  . . .  The  record  nvimber  for  this  serial . 

serial  number  . . .  The  number  assigned  to  the  serial .  May  be 

different  from  the  record  number. 

destination  ...  The  destination  LZ  for  the  serial.  Must  match 

one  of  the  landing  zone  names  in  the' 
LZBeach.dat  file. 

source  ...  The  location  of  the  serial  when  the  simulation 

commences.  Must  match  one  of  the  ship  names  in  the 
Ship.dat  file. 

external  cargo  . .  .  The  amount  of  external  cargo  (in  pounds)  in 

the  serial. 

passengers  . . .  The  number  of  passengers  in  the  serial . 

priority  . . .  The  priority  of  the  serial .  Determines  when  the 
serial  is  moved  ashore. 

mode  ...  The  mode  in  which  the  serial  is  transported  ashore. 
Must  be  either  INTERNAL  or  EXTERNAL. 

mlnlift  . . .  Minimum  sized  aircraft  required  to  move  the  serial 
ashore.  Must  correspond  to  one  of  the  maxloadslze  fields 
of  the  Acft.dat  file. 

extemalspeed  . . .  The  airspeed  limitation  on  the  cargo  to  be 
carried  externally. 
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ifpmpzz  D 

Tliis  ^^endlx  coa^lns  exasq)Ii^  ^i^ious  output 

files  for  one  run  of  the  model.  Ttie  <filen(ajne>  used 

beipw  refers  to  the  usejg  name  ihput  throu^  hhe  ,A»t 

file.  "  ' 

A.  <filensBe>.taBt 

T^s  is  the  stimmary  file  for  the  curreiit  .scenario.  3he 
file  will  list  the'Shi|>s  used,  their  locetiQhs,  the  nu^^her  jjsnd 
types  of  aircraft  aboard  each  ship^  and  various  summary 
statistics. 

. SHIP  DATA . . . 


SHIP  NAME 

SHIP  TYPE 

STARTx  STARIV 

HOLDx 

HOLDy 

PBLBUBU 

LHA 

15 

5 

15 

5 

Transports  Aboard: 

CH46  12 

CB53AD  4 

NEWPORT 

LST 

10 

5 

10 

5 

RALEIGH 

LPD 

23 

5 

23 

5 

na»r*_  _ 

LZ  NAME 

LOCATIONx 

LOCATIONy 

SPOTS 

LZSPARROW 

23 

3 

3 

LZOWL 

8 

3 

4 

Stats 


lastdeliverytime. cotint  120 
lastdeliverytime.mean  l€3. 945180 

lastdeliverytime. maximum  ;•  336.245950 


lastdeliverytime. xalxiiimim  :•  ICO. 208837 
las tdeliverytisffi:. variance  :•  1435.075719 


B.  <filazuaM>LZ.out 

This  file  contains  the  data  recording  the  build-up  of 
canbat  power  ashore.  The  data  within  this  file  is  arranged  in 
four  columns.  The  first,  Timex,  records  the  time  t  at  which  a 
serial  arrives  ashore,  either  to  an  LZ  or  to  a  beach. 
SeforeJtmp,  the  second  colxmn,  reconls  the  total  combat  power 
ashore  prior  to  the  arrival  of  the  current  serial.  The  Jmp 
column  contains  the  combat  po%rer  value  of  the  aurriving  serial .. 
The  last  column,  AfterJuap,  contains  the  totail  combat  power 
ashore  including  the  new  arrival.  The  data  from,  consecutive 
replications  of  the  scenario  are  S4^ratcKi  by  a  row  of  -I's 
idiich  are  added  by  the  model. 


These  fovir  columns  of  data  are  mamipulated  by  the  AaalyaiB 


program, 

described  in 

Chapter  IV,  'to 

conpao^e  two  mixes  of 

aircraft. 

TIME 

BBFORSJUMP  JOMP 

AFTBRJOMP 

17.452585 

0.000000 

0.035800 

0.035800 

18.713340 

0.035800 

0.035800 

0.071599 

18.971841 

0.071599 

0.035800 

0.107399 

19.280203 

0.107399 

0.035800 

0.14M98 

20.231016 

0.143198 

0.035800 

0.178998 

20.625452 

0.178998 

0.035800 

0.214797 

29.301536 

0.214797 

0.032967 

0.247764 

30.099510 

0.247764 

0.02472S 

0.272489 

33.884638 

0.272489 

0.032967 

0.305456 

35.876570 

0.305456 

0.035800 

0.341256 

37.766903 

0.341256 

0. 043956 

0.385212 

38.137090 

0.385212 

0.035800 

0.421012 

38.150543 

0.421012 

0.021978 

0.442990 

39.310552 

0.442990 

0.035800 

0.478789 

39.464394 

0.478789 

0.035800 

0.514589 
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39.592847 

0 . 514589 

0.024725 

0.539314 

39.739906 

0.539314 

0.035800 

0.575113 

45 . 160249 

0.575113 

0.027473 

0.602586 

45.911192 

0.602586 

0.038462 

0.641047 

48.103371 

0.641047 

0.032967 

0.674015 

56.408952 

0 . 674015 

0.049923 

0 .723937 

59.120837 

0.723937 

0.032967 

0.756904 

62.442687 

0.756904 

0.016956 

0.773860 

66 . 652223 

0.773860 

0.017900 

0.791760 

74.186491 

0.791760 

0.016956 

0.808715 

81.357447 

0.808715 

0.032967 

0.841682 

81.588816 

0.841682 

0.037740 

0.879422 

84.377447 

0 . 879422 

0.017900 

0.897322 

85.622038 

0.897322 

0.017900 

0,915222 

88.182672 

0.915222 

0.032967 

0.948189 

88.332213 

0.948189 

0.016956 

0.96S145 

93.830519 

0.965145 

0.017900 

0.983044 

114.928264 

0.983044 

0.016956 

1.000000 

-1  -1  -1  -1 

-1  -1  -1  -1 

-1  -1  -1 

C.  <£ll«xuuu>Knd.out 

nnila  file  has  one  column  which  contains  the  com£>letlon 
time  for  each  replication  of  the  current  scenairlo.  Like  the 
<filename>Las.out  flle«  this  file  contains  data  for  auialytical 
purposes . 


133.654668 

136.116764 

109.300731 

128.518234 

127.457097 

147.941331 

139.407063 

138.621305 

126.488858 

184.891796 

164.029736 

121.885986 

203.290792 

162.114241 

162.144698 

118.164527 


149 


191.904999 

118.-680501 

138.275285 

139.032046 

318.220818 

140.441441 

159.673867 
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